VBA: Bilder in Bereich löschen
20.08.2021 10:18:19
Fritz_W
habe folgenden Code gefunden, mit dem ich im Tabellenblatt "Bilder" (Tabelle4) alle Bilder im Zellbereich H2:H26 löschen kann.
Ich würde jedoch gerne nur die Bilder in den Zellen des angegebenen Zellbereichs löschen, wenn in der Spalte G der jeweiligen Zeile ein "x" steht.
Beispiel: Ein "x" steht in den Zellen G5, G9 und G13. In diesem Fall sollten nur die Bilder in den Zellen H5, H9 und H13 gelöscht werden.
Für eure Unterstützung danke ich im Voraus.
mfg
Fritz
Hier mein bisheriger Code:
Sub BilderLoeschen()
Dim shp As Object
Dim sh As Worksheet
Dim rngBereich As Range
Set sh = Tabelle4 ' ggf. anpassen
Set rngBereich = sh.Range("H2:H26") ' ggf. 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