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

    Export ALL sheets to ppt

    Xuan Yang

      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