Help required to Export qlikview object to PPT(Not Image)

[#1]

Hi  ,

Thank you very much for your help.

I am working on export qlikview graphs to power point(PPT).

using the following code , i only export graph image not actual qlikview object.Is there any other way to copy the qlikview object to PPT using macro(not manually copying).

-----------------------

sub ppt_20

Set PPApp = CreateObject("Powerpoint.

Application")
PPApp.Visible = True ' Create a presentation
Set PPPres = PPApp.Presentations.Add

set s=ActiveDocument.Sheets("Main")

charts=s.GetGraphs                 '//charts   =chart------------------i
charts2=s.GetStraightTableBoxes    '//charts2  =straightTable----------j
charts3=s.GetPivotTableBoxes       '//charts3  =PivotTable-------------k

'.........................for sorting...........................

for i = UBound(charts) - 1 To 0 Step -1 
for j= 0 to i  
    if charts(j).getobjectid<charts(j+1).getobjectid then

        set temp=charts(j+1)  
        set charts(j+1)=charts(j)  
        set charts(j)=temp   
        end if 
      next
    next 

' for........GetGraphs............. i

for i=lbound(charts) to ubound(charts)
  Set PPSlide = PPPres.Slides.Add(1, 1)
  PPSlide.Shapes(1).Delete ' removes the title
  PPSlide.Shapes(1).Delete ' removes the text box
  ActiveDocument.GetSheetObject(charts(i).getobjectid).maximize
  ActiveDocument.GetSheetObject(charts(i).getobjectid).CopyBitmapToClipboard
  ActiveDocument.GetSheetObject(charts(i).getobjectid).minimize
  with PPSlide.Shapes.Paste
      .Left = 0
      .Top = 30
      .Width=720
end with
next

' for.........GetStraightTableBoxes............ j

for j=lbound(charts2) to ubound(charts2)
  Set PPSlide = PPPres.Slides.Add(1, 1)
  PPSlide.Shapes(1).Delete ' removes the title
  PPSlide.Shapes(1).Delete ' removes the text box
  ActiveDocument.GetSheetObject(charts2(j).getobjectid).maximize
  ActiveDocument.GetSheetObject(charts2(j).getobjectid).CopyObjectToClipboard
  ActiveDocument.GetSheetObject(charts2(j).getobjectid).minimize
  with PPSlide.Shapes.Paste
      .Left = 0
      .Top = 30
      .Width=720
end with
next

for.........GetPivotTableBoxes............ k

for k=lbound(charts3) to ubound(charts3)
  Set PPSlide = PPPres.Slides.Add(1, 1)
  PPSlide.Shapes(1).Delete ' removes the title
  PPSlide.Shapes(1).Delete ' removes the text box
  ActiveDocument.GetSheetObject(charts3(k).getobjectid).maximize
  ActiveDocument.GetSheetObject(charts3(k).getobjectid).CopyObjectToClipboard
  ActiveDocument.GetSheetObject(charts3(k).getobjectid).minimize
  with PPSlide.Shapes.Paste
      .Left = 0
      .Top = 30
      .Width=720
end with
next

Thanks,

siva