アクティブシートの画像を全て削除する マクロ VBA For each構文 Shape.Typeプロパティの一覧表

たくさんの画像を扱っていると一気に画像の削除をしたくなるときがあります。

都度、手作業で削除する方法は

①画像を選択してdeleteキーで消去する

全て選択して消去する場合は

②Controlキー ＋ G 　→　セル選択　→　オブジェクトをにチェック　→　OK　で画像全てが選択されるので　deleteキー！

本題のマクロで一気に消去するには　For each 構文を使います♪

For eachはお初目ですねww

For each構文はオブジェクトの中身を調べてくれる優れものです♪

For eachでShapeオブジェクトを対象にして削除しちゃいましょう！

サンプルは下記

shapeオブジェクトはたくさんのオブジェクトを含んでいます。

下記は備忘録として記載しておきます。

画像は msoLinkedPicture もしくは msoPicture を指定します。