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