Export ALL sheets to ppt

[#1]

Hi all, I wonder if you have had the quest to export all the sheets into powerpoint.

1. I have found this following code work very well when I exporting the ACTIVE sheet into powerpoint, but how do I export ALL sheets?

2. How do export selected few sheets? e.g. exporting "Sheet1", "Sheet4", and "Sheet5"?

Sub exportppt


Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add

Set PPSlide = objPresentation.Slides.Add(1,11)
ActiveDocument.ActiveSheet.CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing

End Sub 

Thanks very much for the help!

Mira

[maxgro · Accepted solution]

try here (answers from autopilot)

Re: Re: Macro to export more than one Sheet objects into PPT