'アクティブシートの図形を削除する例です。
Sub 図形を全て削除()
ActiveSheet.DrawingObjects.Delete
End Sub
'アクティブシートのオートシェイプで円形の図だけを選択する例です。
Sub 円形のオートシェイプを全て選択()
Dim C As Shape
For Each C In ActiveSheet.Shapes
If C.AutoShapeType = msoShapeOval Then C.Select False
Next C
End Sub
'アクティブシートのフォームコントロール以外の図形を選択する例です。
Sub フォーム以外の図形を選択()
Dim C As Shape
For Each C In ActiveSheet.Shapes
If C.Type <> msoFormControl Then C.Select False
Next C
End Sub