マクロで消したい図と残したい図

　エクセルで写真集を作成するマクロを作ると同時に、修正し易いように、一度作った写真集を一括クリアするマクロも作りました。エクセルシートに貼ったJPGデータをShapesで拾いだし、Selection.ShapeRange.Deleteを使って消去する内容です。
　どころが、注釈のために写真に手作業で入れ込んだ矢印や赤丸などのオートシェイプだけは残したいのですが、同じShapesなので写真と一緒に消えてしまいます。
　そこで質問ですが、マクロで一部の図は消せて一部の図は残せるようにするには、どうすればいいでしょうか？例えばJPGデータだけ特別に識別できるとか、逆に矢印等を作った時にロックを掛けるとかいう方法はないでしょうか。

No.1 回答者： kybo 回答日時： 2012/12/17 17:22

Sub macro()

Dim C As Picture
For Each C In ActiveSheet.Pictures
C.Delete
Next C
End Sub

とか、選択して消したいなら、

Sub macro()
Dim C As Shape
For Each C In ActiveSheet.Shapes
C.Select
If TypeName(Selection) = "Picture" Then
C.Delete
End If
Next C
End Sub

とか

この回答へのお礼

リストまで書いて頂いてありがとうございます。これも試してみます。

お礼日時：2012/12/18 11:07

No.2 回答者： nag0720 回答日時： 2012/12/17 17:34

ShapeオブジェクトのTypeプロパティ（図形の種類）で判別できないのかな？

この回答へのお礼

マクロ初心者なのでそういうのは知りませんでした。参考にします。ありがとうございました。

お礼日時：2012/12/18 11:09

No.3 ベストアンサー 回答者： keithin 回答日時： 2012/12/17 17:56

図形は残して画像だけ全部消したいなら

activesheet.pictures.delete
でいいです。

この回答へのお礼

あっさりうまくいきました。こんな簡単だったんですね。おかげで助かりました。ありがとうございました。

お礼日時：2012/12/18 11:10