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
Яндекс индекс цитирования