VBA Pasting Excel to PowerPoint as images

[pliskers]

I am using some code to paste images of Excel sheets into PowerPoint. All works fine until the code encounters a sheet that also contains a graph. When it reaches the code to paste, I get an error message.

Here's a snippet of the code for a sample sheet:

Sheets("P20_9. Inc.Tax").Select
Range("P20_9").Activate
ActiveSheet.Outline.ShowLevels RowLevels:=1
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

' Copy the range as a picture
Selection.CopyPicture Appearance:=xlScreen, _
Format:=xlPicture

' Initialize PowerPoint Object Library
Set PPApp = GetObject(, "Powerpoint.Application")

' Reference active presentation
Set ppPres = PPApp.ActivePresentation


' Denote slide where range is to be copied and paste image
Set PPSlide = ppPres.Slides(20).Shapes.Paste

Is there an alternate code that I can use to capture BOTH the graph and the other data in the sheet and paste them as a single image to PowerPoint?

 

[Domenic]

Having a chart on a worksheet shouldn't cause an error. In fact, I tested it, and the cells along with the chart were pasted into the slide successfully. As it stands, your code pastes the picture in the 20th slide. Do you in fact have a 20th slide? Also, can you please confirm with line causes the error, and the type of error you're getting?

 

[pliskers]

Something else was causing the issue. It works fine now, including copying/pasting the images of tabs that include charts. Thanks for your reply!

 

[Domenic]

That's great, I'm glad you were able to solve the issue. Thanks for the update.

Cheers!