ich möchte Bilder in bestimmten Zellen markieren und benutze dafür folgendes Skript:
Sub SelectedShapes()
Dim shp As Shape, r As Range
Set r = Range("AE5:AF5")
For Each shp In ActiveSheet.Shapes
If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), r) Is Nothing Then _
shp.Select Replace:=False
Next shp
End Sub
Damit werden aber immer die Bilder in Zelle AE5 und AF5 und leider auch die in AE4 und AF4 markiert. Gibt es dafür abhilfe, sodass nur AE5 und AF5 markiert werden?Danke,
Marlon