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

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

'

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

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

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