Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Markersymbol per VBA übernehmen
#1
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
Antworten Top
#2
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.


Angehängte Dateien
.xlsm   FaceIDs_.xlsm (Größe: 17,5 KB / Downloads: 6)
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
(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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste