Hi,
I posted the following to a similar thread.
Select a series and go to the formula bar and press F9.
In a very simple test example the following formula converted to,
=SERIES(,[Book3]Sheet1!$A$2:$A$5,[Book3]Sheet1!$B$2:$B$5,1)
=SERIES(,{"a","b","c","d"},{1,2,3,4},1)
or you could try using code.
Sub GetChartData()
' output labels and values to sheet
Dim vntData As Variant
Dim vntLabels As Variant
Dim lngIndex As Long
With ActiveChart
With .SeriesCollection(1)
vntData = .Values
vntLabels = .XValues
For lngIndex = LBound(vntData) To UBound(vntData)
ActiveSheet.Cells(lngIndex, 1) = vntLabels(lngIndex)
ActiveSheet.Cells(lngIndex, 2) = vntData(lngIndex)
Next
End With
End With
End Sub
Cheers
Andy
