issue exporting qlikview in PPT

[#1]

Hi ,

I am trying to export the qlikview dashboard to PPT . I am using the below mentioned code.

Sub exportppt
  ActiveDocument.ActiveSheet.FitZoomToWindow
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.GetApplication.Refresh
ActiveDocument.ActiveSheet.ApplyZoomToAllSheets

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

PPSlideNo = 1

For i = 0 to activedocument.noofsheets -1

Set PPSlide = objPresentation.Slides.Add(PPSlideNo,12)

ActiveDocument.GetApplication.WaitForIdle

ActiveDocument.ActiveSheet.CopyBitmapToClipboard

PPSlide.Shapes.Paste
 
Set PPSlide = Nothing
  Set PPPres = Nothing
  Set PPApp = Nothing

activedocument.nexttab

PPSlideNo = PPSlideNo + 1

NEXT

End Sub

However the image is getting exported but its very big in size . We need to use scroll bar the Powerpoint .

Is there any way to get the it in set format

Thanks

Medha

[#2]

Quick pdate I did Manage to Resize the image to adjust to PPT.

However I have a pivot table in my Dashboard and as I am taking the copytoclipboard  the whole tab the pivot table is getting truncated. Its take sit snapshot and doesn't show all the data .

Has anyone faced this issue . I have seen some filter looping but not able to implement it .