Skip to main content
Announcements
Customer Spotlight: Discover what’s possible with embedded analytics Oct. 16 at 10:00 AM ET: REGISTER NOW
cancel
Showing results for 
Search instead for 
Did you mean: 
Not applicable

Export ALL sheets to ppt

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

1 Solution

Accepted Solutions
1 Reply
maxgro
MVP
MVP