挿入した画像を選択したい

質問

どうぞ宜しくお願いいたします。

シートに挿入したjpg画像をマクロにて削除したいと思っております。

挿入した画像の名前は「図15」だったり、「図20」だったりで
一定の名前がついていません。

もしも、名前のついている画像であれば、
ActiveSheet.Shapes("Picture 32").Select
といったように選択することができるのですが、
そのつど挿入した画像なので、名前がランダムです。

宜しくお願いいたします。

回答No.2

marbin · ベストアンサー

画像のみの削除の方法です。

Dim shp As Object
For Each shp In ActiveSheet.DrawingObjects
If TypeName(shp) = "Picture" Then shp.Delete
Next

お礼

早速のご回答本当にありがとうございました！
こちらをそのまま使わせていただいたところ、見事に挿入した
画像だけが切り取られました！ミラクルです！
本当にどうもありがとうございましたm(__)m

回答No.1

marbin

全てのシェイプを削除していいのなら、

ActiveSheet.DrawingObjects.Delete

で削除できます。
画像のみ、ということも出来ると思います。

お礼

こんなに早くご回答いただけると思っていなかったので、
うれしさ＆ビックリです！
しかし残念ながら、他の（フォームで描いた図等）もシート内に
ありますので、別のプログラムにて使わせていただきます。
「DrawingObjects」というものを初めて知りました！
ありがとうございましたm(__)m