Sub УдалениеКартинок()

For Each pic In ActiveSheet.Shapes

If Left(pic.Name, Len(pic.Name) - 1) <> "CommandButton" Then

' x.Delete '.Select'

' MsgBox x.Name

' End If

pic.Delete

Next pic

End Sub

Sub УдалениеКартинок_вариант2()

ActiveSheet.Shapes.SelectAll

Selection.Delete

End Sub