wie der Titel schon sagt möchte ich gerne bei einem Diagramm eine Trendlinie, genauer einen gleitenden Durchschnitt hinzufügen.
Mit folgendem Code erzeuge ich mein Diagramm:
Code: Alles auswählen
Sub Main
doc = ThisComponent
sheet=doc.sheets.getbyname("Tabelle1")
charts = sheet.charts
Dim Rect As New com.sun.star.awt.Rectangle
Rect.X = 8000
Rect.Y = 1000
Rect.Width = 19200
Rect.Height = 10800
RangeAddress = Array(sheet.getcellrangebyname("A1:A19").getRangeAddress(),_
sheet.getcellrangebyname("B1:B19").getRangeAddress())
charts.addNewByName("MyChart", Rect, RangeAddress(), True, True)
chart = charts.getByName("MyChart").embeddedObject
oDiagramm=Chart.createInstance("com.sun.star.chart.BarDiagram")
DiaWand=oDiagramm.getWall()
DiaWand.FillColor=RGB(255,255,255)
Datenreihe=oDiagramm.getDataRowProperties(0)
Datenreihe.FillColor=RGB(255,0,0)
End Sub
Vielen Dank
Oscar