Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


24222 / 76738 ←次へ | 前へ→

【57866】エクセルグラフの項目軸を削除するマクロ
質問  Fj  - 08/9/18(木) 1:14 -

引用なし
パスワード
   はじめまして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メソッドがエラーとなり
    ます(存在しないので当然ですね・・・)

    そうした場合、項目軸の存在の有無の判定方法は
    どの部分(オブジェクト?)からどのように判定すればよいのでしょうか?

初心者の質問で恐縮ですが、    
どうぞ宜しくお願い致します。

0 hits

【57866】エクセルグラフの項目軸を削除するマクロ Fj 08/9/18(木) 1:14 質問
【57868】Re:エクセルグラフの項目軸を削除するマクロ カウボーイズ 08/9/18(木) 9:10 回答
【57910】Re:エクセルグラフの項目軸を削除するマクロ Fj 08/9/19(金) 23:15 お礼

24222 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free