Hi,
Assuming you have a chart and not an image of a chart you could either
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
Sarah0824 said:
If someone emails me a chart, but does not include the source data, is
there
anyway to generate that data from the chart?