Bild in Zelle markieren
26.10.2020 21:51:42
Marlon
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
Danke,
Marlon
Anzeige