13 Replies Latest reply: Nov 11, 2014 6:57 AM by Jesus Pita Merino RSS

    How to export QlikView Sheet as an image to PowerPoint?

    Uday Kumar

      Hi all,

       

      i am able to export the sheet as an image to powerpoint,

      but the problem is that, the image is getting truncated after it is exported.

      what could be the problem?

      can anyone help me in this issue?

      Thanks in advance

      the code is given below

       

      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

       

      so it is exporting, but the image is not coming fully, it is getting truncated.

      how we can rectify this problem?

        • Re: How to export QlikView Sheet as an image to PowerPoint?
          Deepak Vadithala

          Hi,

           

          It works for me. What is the screen resolution and are youusing fit to window option? It will be nice if you can post the QV document.

           

           

          Cheers - DV

          • How to export QlikView Sheet as an image to PowerPoint?
            jejetator

            Hello all

             

            THis is really great as I manage to export the picture to PPT or Excel on my QlikView.

            I still have a question.

            Is there a way to export without taking into account the size of MY screen.

            I'm using QlikView publisher and would like to export defining a specific size of the sheet view to export.

             

            Thanks again and waiting for you

             

            regards

            Jerome

            • Re: How to export QlikView Sheet as an image to PowerPoint?
              Juan Prado

              hey guys! how are you.

               

              I want to create a powerpoint from some differents qlikview objects. I could creat the macro wich create the ppt and paste the objects but i have the following questions:

               

              How can i create the ppt with a specific name?

               

              How can i put one object per slide ?

               

              How can i put two specific objects in a specific slide?

               

              here i paste the macro. THANKS A LOT!!!

               

              Sub ppt

               

               

              'An array with the objects you want to export to powerpoint

              Dim myArray(4)

              myArray(0) = "CH09"

              myArray(1) = "TX22"

              myArray(2) = "TX23"

              myArray(3) = "TX31"

              'Create ppt object

              Set objPPT = CreateObject("PowerPoint.Application")

              objPPT.Visible = True

              Set objPresentation = objPPT.Presentations.Add

               

              'Apply a template if you want one

              'objPresentation.ApplyTemplate _

              '   ("C:\mytemplate.potx")

               

              'For each object in the array create a new slide and paste it.

               

               

               

               

               

               

              For each item in myArray

                 '     Set MySheet = ActiveDocument.GetSheet(i)

               

               

                      Set PPSlide = objPresentation.Slides.Add(1,11)

                 '     ActiveDocument.ActiveSheet.CopyBitmapToClipboard

                                     ActiveDocument.GetSheetObject("CH09").CopyBitmapToClipboard

                                     ActiveDocument.GetSheetObject("TX22").CopyBitmapToClipboard

                      with PPSlide.Shapes.Paste

                    .Left = 90

              .top = 50

              .width=50

              .height=90

              end with

                      

               

               

               

                  ActiveDocument.GetSheetObject("TX31").CopyBitmapToClipboard   

                with PPSlide.Shapes.Paste

               

                .Left = 150

              .top = 350

              .width=20

              .height=20

              end with

               

                                     ActiveDocument.GetSheetObject("TX23").CopyBitmapToClipboard 

                with PPSlide.Shapes.Paste

               

              .Left = 150

              .top = 350

              .width=50

              .height=90

              end with

              Next

               

              'Clean up

              Set PPSlide = Nothing

              Set PPPres = Nothing

              Set PPApp = Nothing

               

               

              End Sub  

              • Re: How to export QlikView Sheet as an image to PowerPoint?
                Jesus Pita Merino

                Hi Uday,

                 

                This macro copy the sheet into an image and then it fits this image to the powerpoint slide size. It will be done as much sheets as your document has. (See the Shape instruction)

                 

                sub ExportarPPT

                  ActiveDocument.ActiveSheet.FitZoomToWindow

                  ActiveDocument.ActiveSheet.ApplyZoomToAllSheets

                  Set PPApp = CreateObject("PowerPoint.Application")

                  PPApp.Visible = True

                  Set PPres = PPApp.Presentations.Add

                  PPSlideNo = 1

                  For i = 0 to ActiveDocument.NoOfSheets - 1

                  Set PPSlide = PPres.Slides.Add(PPSlideNo,1)

                  ActiveDocument.GetApplication.WaitForIdle

                  ActiveDocument.ActiveSheet.CopyBitmapToClipboard

                  PPSlide.Shapes.Paste

                  with PPSlide.Shapes(PPSlide.Shapes.Count)

                  .left = 0

                  .top = 20

                  .width =720

                  end with

                  activedocument.nexttab

                  PPSlideNo = PPSlideNo + 1

                  NEXT

                  PPres.SaveAs "C:\Presentation1.ppt"

                  PPres.Close

                  PPApp.Quit

                  Set PPSlide = Nothing

                  Set PPPres = Nothing

                  Set PPApp = Nothing

                End Sub