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

≪