Export graph datasheet from Powerpoint to Excel

  • Thread starter Thread starter Guest
  • Start date Start date
G

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)
 
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.
Click to expand...

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
 
Steve,
Thank you.
This is a painful way. I have more than 250 graphs/datasheet.

Regards,
Cong
 
Cong Nguyen said:
Steve,
Thank you.
This is a painful way. I have more than 250 graphs/datasheet.
Click to expand...

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.
 
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
 
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.
Click to expand...


Simple <> Elaborate ;-)
 
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
 
Back
Top