Zeilennummer von Objekten bestimmen
21. Oktober 2006
Über die for each -Schleife wird auf alle Objekte vom Typ "shape" im aktiven Arbeitsblatt zugegriffen. Das Shape-Objekt hat die Eigenschaft TopLeftCell, die ein Rangeobjekt zurück gibt. Über die row-Eigenschaft lässt sich dann die Zeilennummer des Objektes zurückgeben.
VBA:
-
Sub getRowOfShapes()
-
'shows the row number of the shapes
-
'10-2006 E.Bimczok
-
'www.profi-excel.de
-
-
Dim myShape As Object
-
Dim zeile As Long
-
For Each myShape In ActiveSheet.Shapes
-
zeile = myShape.TopLeftCell.Row
-
'shapeAdr = myShape.TopLeftCell.Address(0, 0)
-
'shapeName = myShape.Name
-
Stop
-
Next myShape
-
-
End Sub