トップ　>　汎用コード　>　オートシェイプ・画像を削除する

Sub Shapes_Delete() 'アクティブシート上にある全ての
                    'オートシェイプや画像オブジェクトを消去する
    Dim objShape As Shape
    With Application
        .ScreenUpdating = False
        For Each objShape In ActiveSheet.Shapes
            objShape.Delete
        Next
        .ScreenUpdating = True
    End With
End Sub

Sub Images_Delete() 'アクティブシート上にある全ての画像オブジェクトを消去する
    Dim objShape As Shape
    With Application
        .ScreenUpdating = False
        For Each objShape In ActiveSheet.Shapes
            If objShape.Type = msoPicture Then objShape.Delete
        Next
        .ScreenUpdating = True
    End With
End Sub

書籍紹介本を執筆しました

Excelを学びのツールに
「Excelで画像編集　～編集機能を使い倒す!!～」（Kindle版）
Excelは表計算アプリケーションですが、画像や図形の優れた編集機能を備えています。
本書では、それらの機能や操作に焦点をあてた解説をし、あわせて編集の具体例とその方法を紹介します!!