Clever-Excel-Forum

Normale Version: Markersymbol per VBA übernehmen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo Zusammen,


hab ein Problem, das ich nicht lösen kann und hoffe, ihr könnt mir dabei helfen. Ich will in eine TextBox das Markersymbol einer Datenreihe übernehmen. Leider bekomme ich nur die Zahl des Markersymbols ausgewiesen und nicht das Symbol als solches. Es handelt sich hierbei um eine übergeordnete Textbox, die als Legende für 4 Chartobjekte dienen soll. Ich benutze hierzu folgenden Code:

Selection.ShapeRange.TextFrame2.TextRange.Text = DiagrammNameGKZ & Chr(13) & GKZTag.Chart.SeriesCollection(3).MarkerStyle & " " & GKZTag.Chart.SeriesCollection(3).Name


Da für die Datenreihe 3 der Wert des Symbols in der Diagrammerstellung = 3 ist (.SeriesCollection(3).MarkerStyle = 3), ist das Ergebnis in der 2. Zeile der TextBox wie folgt:

3 und Name der Datenreihe

Anstelle der 3 würde ich gerne das Symbol darstellen, in diesem Fall ein Dreieck. Hab nur keine Ahnung wie. Leider habe ich auch bei der Netzsuche wenig Erfolg gehabt.

Ich hoffe, ich konnte mein Problem einigermaßen verständlich darstellen. Für jede Anregung und Hilfe dankbar.

LG,
Stephan
Hallo Stephan,

wenn die Nummer des Legendensymbols einer Face-ID zuordenbar ist, könntest Du eine "Übersetzungstabelle" erstellen und damit die entsprechende Face-ID nutzen.
(08.04.2015, 16:30)schauan schrieb: [ -> ]Hallo Stephan,

wenn die Nummer des Legendensymbols einer Face-ID zuordenbar ist, könntest Du eine "Übersetzungstabelle" erstellen und damit die entsprechende Face-ID nutzen.

Hallo Andre,

vielen Dank für den Tipp. Ich muss noch ein wenig basteln, könnte aber klappen.

LG,
Stephan