Diagramm Trendlinie hinzufügen

[Oscar B]

Moin,
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

Wie kann ich nun noch die Trendlinie einfügen?
Vielen Dank
Oscar

[technikfreund]

Also libreoffice beschreibt den vorgeschlagenen Weg so:

"Um eine Trendlinie für eine Datenreihe einzufügen, wählen Sie die Datenreihe im Diagramm aus. Wählen Sie Einfügen - Trendlinie... oder klicken Sie mit der rechten Maustaste, um das Kontextmenü zu öffnen und wählen Sie Trendlinie einfügen....
Mittellinien sind spezielle Trendlinien, die den Mittelwert anzeigen. Wählen Sie Einfügen - Mittelwertlinien, um Mittelwertlinien für Datenreihen anzuzeigen.
Wenn ein Element einer Datenreihe ausgewählt ist, wird der Befehl auf diese Datenreihe angewendet. Andernfalls gilt er für alle Datenreihen.
Um eine Trend- oder Mittelwertlinie zu löschen, klicken Sie auf die Linie und drücken Sie die Entf-Taste."

So hat es bei mir zumindest funktioniert, der Code von dir stimmt ja auch mit den richtigen Punkten und Abständen. Ich hoffe, ich konnte hier ein wenig mit meiner Internet Recherche (bin selber kein Experte) helfen.

[Oscar B]

Hallo!
Erstmal vielen Dank für die Bemühungen, allerdings möchte ich die Trendlinie natürlich per Makro hinzufügen!
Viele Grüße
Oscar