ich habe verschiedene Shapes bzw. Freihandzeichnungen erstellt und
möchte die Koordinaten dieser Shapes auslesen. Im Internet habe ich auf einer russischen Seite ein Makro dazu gefunden. Leider kann ich mit diesen Werten
nichts anfangen, da sie offensichtich zu klein sind.
Kann mir da jemand helfen oder hat jemand eine Tip.
Vielen Dank im voraus.
Gruß
heiko
Sub ListNodesCoords_2()
buf = ""
For i = 1 To Selection.ShapeRange.Nodes.Count
With Selection.ShapeRange.Nodes
ptsArr = .Item(i).Points
x = ptsArr(1, 1)
y = ptsArr(1, 2)
buf = buf & x & "," & y & Chr(13)
Cells(i + 35, 1) = i
Cells(i + 35, 2) = x
Cells(i + 35, 3) = y
End With
Next i
MsgBox (buf)
End Sub