9 Replies Latest reply: Mar 25, 2014 3:59 AM by vishal waghole RSS

    Exporting to PPT

    vijeta sharma

      Hi, I have used this macro but when I am exporting it creates sheet image in ppt

      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