Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichnung in Werte?

Forumthread: Zeichnung in Werte?

Zeichnung in Werte?
05.06.2007 22:20:00
Rudi
Hi Forum,
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

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichnung in Werte?
05.06.2007 23:57:52
Beverly
Hi Rudi,
das ließe sich mit folgendem Code machen

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.
________________________________________

Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige