Hallo an das Forum,
folgenden Code habe ich bis jetzt immer benutzt,
um alle Bilder (JPGs) aus einem Tabellenblatt zu löschen.
Jetzt wurde der Dienstrechner auf Excel 2013 umgestellt,
und dieser Code funktioniert nicht mehr.
Die Bilder bleiben erhalten und werden gestapelt.
Gibt es schon Erfahrungen zu 2013, ob evtl. die Typendefinition anders ist?
Ich komme leider nicht weiter und hoffe sehr auf Hilfe.
HIER DER CODE:
Dim shpBild As Shape
With Worksheets(varBlattDetails)
For Each shpBild In .Shapes
If shpBild.Type = 13 Then
shpBild.Delete
End If
Next shpBild
End With
PS: die Variable varBlattDetails wird vorher definiert.
Vielen Dank schon im vorraus!!!
Mike