zweite Datenreihe im XYDiagram

[Wacholder]

Hallo,
ich möchte ein XY Diagram mit zwei unterschiedlichen Datenreihen erstellen. Das Diagramm Format wird XY.

Hier ein Ausschnitt aus der Calc Tabelle:

OOScrShot.png (21.31 KiB) 264 mal betrachtet

Spalten B / C und E /F sind die X/Y-Werte für das Diagramm.

Ich probiere es mit folgendem Code:

Code: Alles auswählen

Dim Doc As Object
Dim Charts As Object
Dim Chart as Object

Dim Rect As New com.sun.star.awt.Rectangle
Dim RangeAddress(1) As New com.sun.star.table.CellRangeAddress

Doc = thisComponent
'Diagrammgröße setzen
Rect.X = 8000
Rect.Y = 1000
Rect.Width = 10000
Rect.Height = 7000
'Daten für Diagramm setzen
RangeAddress(0).Sheet = GetPosActiveSheet(Doc)
RangeAddress(0).StartColumn =0
RangeAddress(0).StartRow = 1
RangeAddress(0).EndColumn = 2
RangeAddress(0).EndRow = 2000

RangeAddress(1).Sheet = GetPosActiveSheet(Doc)
RangeAddress(1).StartColumn =3
RangeAddress(1).StartRow = 1
RangeAddress(1).EndColumn = 5
RangeAddress(1).EndRow = 2000
'Diagramm erstellen
AktChart = Doc.Sheets.getByName("Temp")
Charts = AktChart.Charts
Charts.addNewByName("HystDiagr", Rect, RangeAddress(), True, True)
Chart = Charts.getByName("HystDiagr").EmbeddedObject
Chart.Diagram = Chart.createInstance("com.sun.star.chart.XYDiagram")
[/c[/c[/c

Das Problem dabei ist, das für den X-Wert immer die Spalte B eingesetzt wird, nicht Spalte E.

Ich hoffe, das ich mich halbwegs verständlich ausgedrückt habe und Ihr mir helfen könnt.

Gruß Wacholder