Ich habe mal wieder eine Frage...
Ziel ist es, die Farben der Datenreihen in einem Liniendiagramm per Makro zu ändern.
Code: Alles auswählen
sub Diagramm
oDoc = ThisComponent
oView = oDoc.CurrentController
oSheet = oDoc.Sheets.getByName("Test")
Dim oCharts 'Charts in the sheet
oCharts = oSheet.Charts
msgbox (oCharts.count) 'Zeigt die korrekte Anzahl an Diagrammen an
Dim oChart
for i=0 to oCharts.count-1
oChart = oCharts.getByIndex(i).EmbeddedObject
oDiagram = oChart.getFirstDiagram()
next i
end sub
Wie kann man die einzelnen Datenreihen in Form einer Schleife durchlaufen
und dabei den Farbwert erst auslesen und dann ändern. Da ich nicht die gespeicherte Reihenfolge kenne.
Ich hoffe ihr könnt mir helfen.
Gruß Pit