MyTetra Share
Делитесь знаниями!
УдалениеКартинок
Время создания: 16.03.2019 23:43
Текстовые метки: VBA_Excel, Shape, Shapes
Раздел: !Закладки - VBA - Excel - Shapes

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

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования