I have a column chart, but I have lost the original datasheet. How can I get
the data out of the chart? The chart is correct, but can not update

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

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"stearn" wrote in message
...
I have a column chart, but I have lost the original datasheet. How can I
get
the data out of the chart? The chart is correct, but can not update