Excel VBAで、アクティブシート内の全てのグラフを削除したい。

VBA初心者です。
アクティブシート内の全てのグラフを削除するには、どのように記述すればよいのでしょうか？よろしくお願いします。

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2005/10/28 11:13

こんにちは。

確か、
ActiveSheet.ChartObjects.Delete

この一行でよかったと思いますね。

この回答へのお礼

回答ありがとうございました。動作することを確認しました。助かりました。

お礼日時：2005/10/28 11:26

No.1 回答者： 1050YEN 回答日時： 2005/10/28 10:39

Dim objShape　　As Shape

'図形ループ
For Each objShape In ActiveSheet.Shapes
　　'グラフならば
　　If (TypeOf objShape.OLEFormat.Object Is ChartObject) Then
　　　　'消す
　　　　objShape.Delete
　　End If
Next

この回答へのお礼

回答ありがとうございました。早速ためしてみます。

お礼日時：2005/10/28 11:24