Excelマクロによるグラフの消去方法

質問

Excelマクロ初心者です。
マクロで、グラフを消去する操作をさせたいのですが、どのグラフを消去するかというグラフの指定をどうしたら良いか悩んでいます。
単純に記録マクロでやってみると、以下のようになりました。「グラフ1」といったグラフの名前が分かっていればこれをそのまま応用すればいいのですが、グラフの名前が不明の場合にはどうしたらよいのでしょうか。マクロの中で、グラフの位置などから、グラフの名前を取得するといったようなことなどできるのでしょうかね。どういった方法でも結構ですので、よろしくお願いいたします。

Sub Macro1()
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
End Sub

回答No.1

todo36 · ベストアンサー

グラフの名前と位置は列挙できます

Dim Chart

For Each Chart In ActiveSheet.ChartObjects
MsgBox Chart.Name & " Left=" & Chart.Left & " Top=" & Chart.Top
Next

お礼

ありがとうございました。
うまくいきました。