Bild in Zelle löschen
24.01.2021 10:31:46
nightcab
Ich habe in der betreffenden Zeile mehrere Bilder.
Mit dem folgenden Code möchte ich, dass nur das Bild in der aktiven Zelle gelöscht wird.
Leider werden aber alle Bilder der Zeile gelöscht.
Dim oShape As Shape
For Each oShape In ActiveSheet.Shapes
If Not Intersect(oShape.TopLeftCell, ActiveCell.EntireRow) Is Nothing Then
oShape.Delete
End If
Next
Gruß nightcab
Anzeige