Export graph datasheet from Powerpoint to Excel

[Guest]

Hi All,
Please show me how to export all datasheet in Powerpoint to Excel.
I have a presentation with many graphs created directly in Powerpoint and
now want to learn how to export and save just the raw data in Excel format.
Thank you for your help.

Sincerely,
Cong Nguyen
(e-mail address removed)

 

[Steve Rindsberg]

Please show me how to export all datasheet in Powerpoint to Excel.

I have a presentation with many graphs created directly in Powerpoint and
now want to learn how to export and save just the raw data in Excel
format.

I don't think there's any simple way to automate this.

Manually, you can doubleclick a graph, copy its data, paste it into a
worksheet, then repeat until you're done with all of the graphs

 

[Guest]

Steve,
Thank you.
This is a painful way. I have more than 250 graphs/datasheet.

Regards,
Cong

 

[Steve Rindsberg]

Steve,
Thank you.
This is a painful way. I have more than 250 graphs/datasheet.

I understand. You could probably do it automatically using VBA if you're a
fairly proficient coder. This wouldn't be a beginning project though.

 

[Brian Reilly, MVP]

Steve,

you scared me with your earlier answer since I am about to write
some fairly elaborate code to do this. Yes, it can be done
programmatically.

Brian Reilly, MVP

 

[Steve Rindsberg]

you scared me with your earlier answer since I am about to write
some fairly elaborate code to do this. Yes, it can be done
programmatically.

Simple <> Elaborate ;-)

 

[Jegatheesh Rengasamy]

How to get the number of rows and columns from the Power point data sheet

I am using the below code to copy the powerpoint data sheet to excel, But couldn't complete it. Can someone please help me?
wksData.Cells.ClearContents()

'This is a PowerPoint Chart, therefore populate the data table
Dim oGraph As Microsoft.Office.Interop.Graph.Chart = pptShape.OLEFormat.Object
oGraph.HasDataTable = True

For iRow = 1 To oGraph.Application.DataSheet.Rows.Count
For iCol = 1 To oGraph.Application.DataSheet.Columns.Count
wksData.Cells(iRow, iCol) = oGraph.Application.DataSheet.Cells(iRow, iCol).Value
Next
Next


Thanks,
Jag