XY-Diagramm funktioniert nicht

[Stanley Fas]

Hallo!
Ich versuche gerade eine eingelesene Tabelle als XY-Diagramm darzustellen. Wenn ich das von Hand mit Hilfe des Assistenten erledige funktioniert es ganz gut. In Basic will es aber prompt nicht klappen.
Hier mein Code:

Code: Alles auswählen

Dim Charts As Object
Dim Chart as Object
Dim Rect As New com.sun.star.awt.Rectangle
Dim RangeAddress(0) As New com.sun.star.table.CellRangeAddress
Doc = StarDesktop.CurrentComponent
Charts = Doc.Sheets(0).Charts

Rect.X = 4000
Rect.Y = 1000
Rect.Width = 15000
Rect.Height =10000
RangeAddress(0).Sheet = 0
RangeAddress(0).StartColumn = 0
RangeAddress(0).StartRow = 4
RangeAddress(0).EndColumn = 1
RangeAddress(0).EndRow = 15

Charts.addNewByName("Diagramm1", Rect, RangeAddress(), True, True)
Chart = Charts.getByName("Diagramm1").embeddedObject
Chart.Diagram = Chart.createInstance("com.sun.star.chart.XYDiagram")

Es erscheint immer ein leeres XY-Diagramm. Wenn ich die letzten beiden Zeilen auskommentiere dann wird ein Balkendiagramm mit den Werten aus der Tabelle erstellt, was mir aber wenig nützt, da ich nun mal ein XY-Diagramm brauche.
Wer weiss Rat?

Gruß Stan