XY-Diagramm funktioniert nicht

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: XY-Diagramm funktioniert nicht

XY-Diagramm funktioniert nicht

von Stanley Fas » Mo, 27.03.2006 09:25

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. :oops:
Wer weiss Rat?

Gruß Stan

Nach oben