| |
はじめましてFjと申します。
エクセルマクロ初心者ですがどうぞよろしく
お願い致します。
組もうとしているマクロは以下の内容です
内容：一つのシートにある複数の埋め込みグラフに対し
項目軸を一括で削除するマクロです。
ここで複数の埋め込みグラフのなかに
項目軸があるものと削除したものが混在した場合はどのような
コードを組めばよいのでしょうか？
すべて項目軸が存在する場合は
Sub test()
Dim i
Dim j
i = ActiveSheet.ChartObjects.Count
For j = 1 To i
ActiveSheet.ChartObjects(j).Activate
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).AxisTitle.Select
Selection.Delete
Next
End Sub
で問題ないのですが、項目軸が存在しないグラフが
あるとaxisTitleのSelectメソッドがエラーとなり
ます（存在しないので当然ですね・・・）
そうした場合、項目軸の存在の有無の判定方法は
どの部分（ｵﾌﾞｼﾞｪｸﾄ？）からどのように判定すればよいのでしょうか？
初心者の質問で恐縮ですが、
どうぞ宜しくお願い致します。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
