VBAで 任意図形のみ残してその他の図削除するには？

状態：シート状に複数の図形、グラフがあります
したいこと：ある特定の図のみのこし、その他は全て削除したい
特定の図：これにはNameをつけてあります

アドバイス宜しくお願いします。

No.1 ベストアンサー 回答者： papayuka 回答日時： 2006/06/14 21:55

特定名が自分で付けたものなら下記でどうでしょう？

Nameに「特定名」を含まない物を削除します。
試すのはテスト環境で。

Sub Test()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
　　If Not sh.Name Like "*特定名*" Then sh.Delete
Next sh
End Sub

この回答へのお礼

動作バッチリです。
○In ActiveSheet.Shapes
○If Not sh.Name Like
の文が勉強になりました。
ありがとうございました。

お礼日時：2006/06/15 20:19