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

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