Hi,
mit folgendem Code lösche ich Grafiken in einem bestimmten Tabellenblatt.
Dim mydocument As Worksheet, s
Workbooks("ABC.xls").Activate
Set mydocument = Worksheets("Lieferant")
For Each s In mydocument.Shapes
On Error Resume Next
Select Case s.Type
Case msoEmbeddedOLEObject, _
msoLinkedOLEObject, _
msoOLEControlObject, _
msoLinkedPicture, msoPicture
s.Delete
End Select
Next
Was muß ich ergänzen, dass nur im Bereich G168:O221 die GHrafiken gelöscht werden?
Gruß
otto