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)




      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?