Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige