[Solved] Access dataseries from a chart

[laulau59]

Hi,

I'm trying to access the data in the data series of a chart with some oobasic coding.
Here is my piece of code :

Code: Select all

Dim oChart, oCharts As Object
Dim oDiagram as Object
Dim oData, oDataArray as Object
Dim DataSeries(0 To 11) as Double

oSheets = ThisComponent.Sheets
oCharts = oSheets(0).Charts
oChart = oCharts(0).EmbeddedObject
oDiagram = oChart.Diagram	
oData = oChart.getData()
'''XRay oData  
oDataArray = oData.Data
'''XRay oDataArray
DataSeries = oDataArray
'''XRay DataSeries

' loop below fails at i=0
For i=0 To 11
  print DataSeries(i)
Next

I cannot access the elements in array oDataArray, nor in array DataSeries (although Xray tells me they have the correct dimensions).

Any clue on this issue ?
Thanks.

[FJCC]

DataSeries is an array of arrays. Try something like

Code: Select all

 print DataSeries(i)(0), DataSeries(i)(1) 

in your for-next loop

[Zizi64]

Here is an example file:

GetChartData.ods

(20.12 KiB) Downloaded 107 times

[laulau59]

Many thanks to both of you for the swift and efficient reply, got it.