Qlik Community

QlikView Scripting

Discussion Board for collaboration on QlikView Scripting.

Not applicable

Error in exporting all the Qlikview sheets to a single ppt

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

1 Reply
MVP
MVP

Re: Error in exporting all the Qlikview sheets to a single ppt

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

Community Browser