Copying charts and tables from excel to powerpoint

[deanle91]

I have an excel file with some charts and tables and I would like to make a macro that copies these charts and tables from excel to an already existing powerpoint presentation on different slides, any help would be appreciated.

[kev_]

You were not very specific in how you wanted everything copied etc, but this should get you started...

To test the code:
- open up a new blank PowerPoint presentation
(ensure that is the only one open!)
- open the attached file
- run the macro with {CTRL} t
- 6 sheets are added to the open presentation

The macro:
- loops through each worksheet
- copies every chart
- pastes to a new slide
- loops through each worksheet
- copies every "Excel Table" (ie those created with Insert\Table)
- pastes to a new slide
- loops through every named range with name beginning "pp_"
- copies that range
- pastes to a new slide

Credit
- this code started with what was found on this Peltier Tech page

The code:

Please Login or Register  to view this content.

When creating your macro in a different Excel file:
REMEMBER to set VBE reference to Microsoft PowerPoint Object Library
(under VBA menu Tools\References)

VBARef.jpg

[deanle91]

Thanks but what i really need to know is how to paste a powerpoint already saved down. I dont want to create a new one. Additionally I want to paste to specific slides I dont need to create new ones or use any loops.

[kev_]

I dont want to create a new one

- my VBA does not create a new powerpoint - it merely adds the 6 slides (based on contents of my example workbook) to the active presentation (I told you to open a blank new one to allow you to test what the VBA is doing)

I want to paste to specific slides

Very simply
this line in Excel VBA copies a specific chart named "Chart 2" and which is on sheet "Chart 1"

Please Login or Register  to view this content.

this line pastes it into slide 3 in the active presentation and selects it so that we can then move it etc

Please Login or Register  to view this content.

If you need more help please be specific in your questions

[deanle91]

Ok thanks

I tried just running this code but I am getting Run-time error '429' ActiveX component cant create object

Please Login or Register  to view this content.

[kev_]

Are you writing your code in Excel?

I think your code could not find the active presentation - how were you activating it?

This (tested) code successfully copies "Chart 2" on sheets "English" to slide 15 in the active presentation

Please Login or Register  to view this content.

[deanle91]

Ok great the new code works now

Is there a way to paste it using the 'destination theme and embedded workbook' instead of picture so it matches the theme of the presentation?

[kev_]

Try this

Please Login or Register  to view this content.