MyTetra Share
Делитесь знаниями!
удаляем все рисунки
Время создания: 16.03.2019 23:43
Текстовые метки: VBA, Shepe,Shapes
Раздел: !Закладки - VBA - Excel - Shapes
Запись: adgaver/mytetra_base_New/master/base/1513065308vag03o40gq/text.html на raw.githubusercontent.com

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

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

'

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

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