エクセル。張り付いたピクチャーをマクロで削除したい

質問

ＨＰからデータをコピーして貼り付け。
そのデータをＶＢＡで、編集します。
そのとき、ピクチャーが複数が付いてきます。
これを毎日手作業で削除しています。
この邪魔な、ピクチャーをＶＢＡで削除することは、無理でしょうか？
可能なら、コードを教えてください。

回答No.2

imogasi

ピクチュアー・オブジェクトの特定の仕方さえわかれば、オブジェクト．・Deleteで実現します。
そこで、マクロの記録をとって、「手作業で削除して」見て、オブジェクトの指定の仕方がどうなっているか、勉強されて、それを利用できないか考えるのはいかがでしょう。

回答No.1

Wendy02

こんばんは。

ピクチャーというものが何を指すのか分らないから、正直なところ、正確には答えられません。ただ、図などのオブジェクトを全部削除してよいものなら、以下のようなコードでよいでしょうし、もしも、区分けするなら、shp のオブジェクトを　Type などで、選別して、削除するしかないと思います。

Sub PicturesDel()
Dim shp As Object
With ActiveSheet
For Each shp In .Shapes
　shp.Delete
Next shp
End With
End Sub