- Excel VBA 質問スレ Part34
850 ：デフォルトの名無しさん[sage]：2014/10/19(日) 18:14:22.69 ID:YnlAiiUt - Axes(xlValue, xlSecondary).MinimumScaleのところで止まってしまいます｡
『'Axes'メソッドは失敗しました。'_Chart'オブジェクト』というエラーメッセージです｡
For i = 1 To 20 'ﾁｬｰﾄの数だけ繰り返す
With ws_chart.ChartObjects(i).Chart
.Axes(xlValue, xlSecondary).MinimumScale = 0
.Axes(xlValue, xlSecondary).MaximumScale = 1
End With
Next i
私の予想ですが､このチャートに第二軸が設定されていないためと思います。
複数あるチャートのうち、第二軸があるチャートのみ第二軸の最小値と最大値をセットしたいのです。
チャートに第二軸があるかどうかをどのように判断したらいいのか教えてください。
|