kann man mit VBA eine gezeichnete Freeform in die Werte der Knoten übersetzen
und so aus den Werten ein Diagramm erstellen? Wie könnte das gehen?
Tipps wären toll.
Grüße Rudi
Sub koordinaten_freihandform_auslesen()
Dim ndShape As ShapeNode
Dim inZaehler As Integer
With ActiveSheet.Shapes(1)
For Each ndShape In .Nodes
inZaehler = inZaehler + 1
Worksheets("Tabelle1").Cells(inZaehler, 1) = ndShape.Points(1, 1)
Worksheets("Tabelle1").Cells(inZaehler, 2) = ndShape.Points(1, 2)
Next ndShape
End With
Cells(inZaehler + 1, 1) = Cells(1, 1)
Cells(inZaehler + 1, 2) = Cells(1, 2)
End Sub
Die X-Koordinaten werden in Spalte A, die Y-Koordinaten in Spalte B eingetragen. Die letzten beiden Zeilen in der Prozedur sind erforderlich, damit die Form als geschlossene Linie dargestellt wird. Dein Diagramm kannst du dann auf Basis dieser Wertetabelle erstellen. Du musst allerdings beachten, dass für die Y-Achse "Größen in umgekehrter Reihenfolge" aktiviert ist, da die Koordinaten relativ zum oberen Tabellenrand ausgelesen werden.
________________________________________