1 Reply Latest reply: Jun 23, 2015 4:31 PM by Massimo Grossi RSS

    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)
      Set PPSlide = Nothing
      Set PPPres = Nothing
      Set PPApp = Nothing
      End Sub 


      Thanks very much for the help!