シート上のjpg画像のみを一括削除したい

質問

Excel VBA勉強中の者です。
早速ですが、シート上にあるjpg画像のみを一括削除したく
ネットで調べつつ以下のコードを作ってみました

Sub　dlt() '既存の画像を削除
Dim jpgdlt As Shape
With ActiveSheet
.DrawingObjects.Delete　'このコードが違っている？？？
For Each jpgdlt In .Shapes　’For　Each　Next　で選択対象を繰り返し削除
jpgdlt.Delete
Next
End With
End Sub

これでjpg画像の削除は出来たのですが、シート上に配置した
コントロールなどのオブジェクトも全て削除されてしまい困っております。

以下のコードも作ってみたのですが、こちらはメモリーが不足しているという
エラーを回避できず、オブジェクトが削除されるか検証する前に使用を断念しました。

Sub　dlt() '既存の画像を削除
Dim jpgdlt As Object
Set jpgdlt = ActiveSheet
jpgdlt.Shapes.SelectAll
Selection.Delete
End Sub

ｊｐｇ画像のみを選択し、削除するにはどうすれば宜しいのでしょうか？
色々調べてはみたものの、自力での解決に至らず、
お手数お掛けしますがどなたかご助力お願い致します。

回答No.1

keithin · ベストアンサー

ご利用のエクセルのバージョンによって，幾つか使える方法使えない方法が異なる場合があります。

とりあえずバージョン不明ということで，
sub macro1()
　dim o
　for each o in activesheet.shapes
　if o.type = msoPicture then o.delete
　next
end sub
とかでどうでしょう。

お礼

keithin様、御回答頂きまして有難う御座います。
ご指摘有難う御座います、確かにバージョンは記載するべきでした！
エクセルは2002です。今後は一緒に掲載させていただきますね。

上記コードにて目的の動作を確認できました、有難う御座います。
IFを用いて画像の種類を判断しつつ削除する内容であると認識しましたが、
理解できない部分はこれからじっくり勉強させて頂きます。
いつもながらお早い対応を頂き大変に助かっております。
有難う御座いました、今後とも宜しくお願い致します！