20 Replies Latest reply: Nov 11, 2014 6:54 AM by Jesus Pita Merino RSS

    Export all sheets to ppt

    Tan Soo Chin

      Hi Community

       

      I got the following macro but it will only export the active sheet and also the image got truncated.

       

      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

       

      How can i export all the sheets in the application into different slides without the image being truncated?