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