Excel -> Powepoint

**elfishio** · 05-12-2011, 05:40 PM

I have the following code that I would like to apply to a spreadsheet at work. What it does is take the last graph on the active sheet, and pastes it to ppt. I would like to know what to add and where to be able to export multiple graphs on multiple sheets in the active workbook. Thank you in advanced for any assistance.

Please Login or Register  to view this content.

**mojo249** · 05-12-2011, 07:36 PM

You can loop through each sheet in the workbook and each chart on the sheet. Something like:

Please Login or Register  to view this content.

Dion

**Leith Ross** · 05-12-2011, 08:15 PM

Hello elfishio,

I have contacted another moderator, Andy Pope, to have a look at your question. He is the resident chart expert.

**Andy Pope** · 05-13-2011, 03:41 AM

mojo249 has provided you with the code needed to loop sheets/charts.

So you just need to incorporate your existing code into the loop. Although the creation and destruction of powerpoint application and referencing to the presentation can be done once, outside of the loop,

Post back if you further help.

**elfishio** · 05-13-2011, 10:24 AM

Thank you all for this assistance! I am going to apply this to my spreadsheet soon, and post back with the results.

**elfishio** · 05-16-2011, 04:21 PM

So I applied the originally qouted code within the new loop code provided by mojo, however it just pastes the same graph 3 times over, as opposed to each unique graph once. Is it computing to paste that graph to new slides for every graph in the worksheet?
I apologize for the hand holding I am asking for, I just picked a complex program that I want to start with VBA on, and I happen to need it for work.

**elfishio** · 05-16-2011, 04:39 PM

update - changing the line "ChartNumber = 1" to Chartnumber = Varchart gave me charts 1 and 2 from sheet one, and chart 1 from sheet 1 as the 3rd slide, instead of chart 1 from sheet 2