1 Reply Latest reply: Sep 22, 2015 3:48 AM by Tresesco B RSS

    Error in exporting all the Qlikview sheets to a single ppt

      Hi,

       

      Working on exporting all the Qlikview sheet in ppt. But only first images is getting copied and rest sheets are getting white background only in ppt.

       

      SUB Test

      Set objPPT = CreateObject("PowerPoint.Application")
      objPPT.Visible = True
      Set objPresentation = objPPT.Presentations.Add

      For i = 0 to 3
      Set PPSlide = objPresentation.Slides.Add(i+1,10)
      ActiveDocument.Sheets(ActiveDocument.Sheets(i).GetProperties.SheetId).Activate
      ActiveDocument.ActiveSheet.CopyBitmapToClipboard
      PPSlide.Shapes.Paste
      set PPSlide = Nothing
      Next

      End Sub



      Please help !!


      Regards,

      Nitin Jain

        • Re: Error in exporting all the Qlikview sheets to a single ppt
          Tresesco B

          Hi Nitin,

           

          try:

           

          SUB Test

          Set objPPT = CreateObject("PowerPoint.Application")
          objPPT.Visible = True
          Set objPresentation = objPPT.Presentations.Add

          For i = 0 to 3
          Set PPSlide = objPresentation.Slides.Add(i+1,10)
          ActiveDocument.Sheets(ActiveDocument.Sheets(i).GetProperties.SheetId).Activate

          ActiveDocument.GetApplication.WaitForIdle
          ActiveDocument.ActiveSheet.CopyBitmapToClipboard
          PPSlide.Shapes.Paste
          set PPSlide = Nothing
          Next

          End Sub