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

''============================================================

'удаляем все рисунки

'

''------------------------------------------------------------

Function FnDelPicture(ByVal oSh As Worksheet, _

ByVal iType As MsoShadowType)

'Dim oSh As Worksheet

Dim oP As Shape

'Set oSh = ThisWorkbook.Sheets("Графики По департаментам")

With oSh

For Each oP In .Shapes

If oP.Type = 13 Then oP.Delete ' : Type : msoPicture : MsoShapeType

Next 'oP

End With

End Function

''============================================================

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