Excel: Alle Bilder löschen


Bei Excel (< 2007) müsste es funktionieren wie hier beschrieben.

Alternative:
Eine kleine Endlosschleife zur Entfernung aller Bilder eines Excel Sheets in VBA.


Sub DeletePics()
Dim counter As Integer
counter = 0
Do While True
counter = counter + 1
On Error Resume Next
ActiveSheet.Shapes("Picture " + CStr(counter)).Select
On Error Resume Next
Selection.Delete
Loop
End Sub

,

  1. Bisher keine Kommentare.
(wird nicht veröffentlicht)