OpenOffice.info

Code: Alles auswählen

sub test
oDoc = ThisComponent
oView = oDoc.CurrentController
oSheet = oDoc.Sheets.getByName("Tabelle1")
Dim oCharts
oCharts = oSheet.Charts
Dim oChart
for i=0 to oCharts.count-1
   oChart = oCharts.getByIndex(i).EmbeddedObject
   oChart.lockControllers
   oDiagram = oChart.Diagram
   oDataSequences = oChart.UsedData.DataSequences
   'msgbox (ubound (oDataSequences))
   if (ubound (oDataSequences)) = 2 then 'Anzahl der Datenreihen
	   for k = 0 to  ubound (oDataSequences)
	      	 do
		     oDataRowProperties = oDiagram.getDataRowProperties(k)
		     'oDataRowProperties.LineColor = RGB(0,255,0)
                     oDataRowProperties.FillColor = RGB(0,255,0)
   		 loop while oDataRowProperties.LineColor <> RGB(0,255,0)
	   next k
   end if
   oChart.unlockControllers
next i
end sub

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