Hi ihr!
Ich möchte auf dem aktuellen Tabellenblatt im Bereich A14-AZ29 alle Grafiken wie Bilder, Pfeile,Textboxen via Makro gelöscht bekommen.
mit folgenden Code werden mir nur die Fotos gelöscht, aber nicht die anderen Objekte
Sub BilderLöschen()
Dim shp As Object
Dim sh As Worksheet
Dim rngBereich As Range
Set sh = ActiveSheet ' anpassen
Set rngBereich = sh.Range("A14:AZ29") ' anpassen
For Each shp In sh.Shapes
Debug.Print shp.Name
If shp.Type = 13 Then
If Not Intersect(shp.TopLeftCell, rngBereich) Is Nothing Then shp.Delete
End If
Next
End Sub
Wie muss der Code erweitert werden, dass er alles in diesem Bereich löscht?
Danke schonmal
Bye Icke
|