- ベストアンサー
VBAで 任意図形のみ残してその他の図削除するには？
状態：シート状に複数の図形、グラフがあります したいこと：ある特定の図のみのこし、その他は全て削除したい 特定の図：これにはNameをつけてあります アドバイス宜しくお願いします。
- 2paifl
- お礼率100% (2/2)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
特定名が自分で付けたものなら下記でどうでしょう？ 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 の文が勉強になりました。 ありがとうございました。