VBA for Copying Charts from Excel to Powerpoint

[DMurray3]

Hi All,

I am using Excel 2007 (xlsx) & PowerPoint 2007 (ppt).

I have used J.Peltier's recommended macro to copy multiple charts as "pictures" to ppt. However, thanking Jon for his explanation why to copy as a "picture", I need to copy my charts as Chart Objects as well use the chart titles as "slide titles" and of course the alignment of the chart in the corresponding slide.

I would highly appreciate if someone could guide me to change the "CopyPicture.." to copy the chart as an "object"?

I have tried doing the modification myself, using but in all attempts, I have failed miserably.

Any help will be highly appreciated.

Kind regards, DMurray3

 

[PCRIDE]

Why do you have to copy them each month?

Simply Copying the Charts Manually into Power Point creates a link to Excel, so when you update your excel sheet the Charts update in the Power Point automatically.

In Power Point go into the Options and you will see Edit Links, you can turn them on to update automatically.

When Power point is opened, it automatically maps to the excel sheet and updates the charts. I do it all the time and works pretty good. Sometimes the mapping just stops working for what ever reason, but as long as the files are saved to a defined location it works as a mapped document.

You can also copy tables that will auto update.

 

[greenginger]

Bump on this thread: How can I modify this code to continue doing the copy chart to PowerPoint for the remaining tabs? I tried incrementing iCht via "iCht = iCht +1" before the "Next"...but that doesn't work.

Detailed explanations are helpful - I'm a novice.

Thank you!!

 

[Jon Peltier]

The code loops through all chart objects on the active sheet:

For iCht = 1 To ActiveSheet.ChartObjects.Count
  ' blah blah
Next

You'll need to nest this within a loop that checks every sheet:

Dim wksht As Worksheet
For Each wksht In ActiveWorkbook.Worksheets
    For iCht = 1 To wksht.ChartObjects.Count
        ' same as previous blah blah
        ' except change ActiveWorksheet to wksht
    Next
Next