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

質問

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

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

回答No.1

papayuka · ベストアンサー

特定名が自分で付けたものなら下記でどうでしょう？
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
の文が勉強になりました。
ありがとうございました。