Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige