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!