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
