Error in exporting all the Qlikview sheets to a single ppt

[#1]

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

[tresesco]

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