Excel Chart Catgegory Achse Namen zuordnen

[Sidi61]

Hallo zusammen,

ich hänge mal wieder fest:cry:

ich versuche einem erzeugten Chart die Kategoriebezeichnungen zuzuordnen.

Mit dem Macro-Recorder würde es so aussehen:

Delphi-Quellcode:

ActiveSheet.ChartObjects("Diagramm 2").Activate
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.FullSeriesCollection(1).XValues = "='Test 2'!$D$5:$D$14"

Ich kann das allerdings nicht in Delphi umsetzen und erhalte alle möglichen Fehlermeldungen.

Der Kategorieachse einen Titel zu geben ist kein Problem

Delphi-Quellcode:

Diagramm.Chart.Axes(xlCategory).HasTitle := true;
    Diagramm.Chart.Axes(xlCategory).AxisTitle.Characters.Text := CD.Kategorie_Titel;

Auch Farbe und Schriftart des Titels funktionieren, allerdings finde ich keinen Ansatz der Kategorie-Achse Namen zuzuweisen. Folgender Ansatz funktioniert leider nicht

Delphi-Quellcode:

Diagramm.chart.Axes(xlCategory).Select;
    Diagramm.FullSeriesCollection(1).XValues := '='+CD.Kategorie_Namen;

Hier erhalte ich den Fehler dass FullSeriesCollection nicht untersützt wird, SeriesCollection geht auch nicht. Habe schon alle möglichen Variationen getestet und finde keine Lösung. Hinter CD.Kateborie_Namen verbirgt sich

Delphi-Quellcode:

D5:D15

Kann jemand helfen??

Gruß
Sidi61

[Sidi61]

OK - bin jetzt doch noch selbst drauf gekommen :thumb:

Lösung:

Delphi-Quellcode:

Diagramm.chart.Axes(xlCategory).Select;
    Diagramm.chart.SeriesCollection(1).xValues :=  '='+''''+'Test 2'+''''+'!D5:D14';

Diagramm.Chart.SeriesCollection kennt er und es muss ein String genau wie im obigen Format übergeben werden auch wenn Diagramm und Daten in der gleichen Tabelle sind.

Als nächstes mache ich mich an die Sekundär-Achse - bin gespannt :roll:

Gruß