Export to PPT

[#1]

HI all,

I have to export QV charts in different sheet to PPT ( How to use macro for Export Qlik View Chart to PPT example ). If I use the export button in an other sheet, it doesn't work.

The macro export only one QV chart.

Could you help me to solve this problem.

best regards

Gilles

[#2]

Hi Gilles,
You should be able to make use of the below:
sub powerpoint
Set PPApp = CreateObject("Powerpoint.Application")
PPApp.Visible = True
Set PPPres = PPApp.Presentations.Open ("C:\xxx\xxx.ppt")
PPApp.Visible = True

ActiveDocument.Reload
ActiveDocument.GetApplication.WaitForIdle

set s=ActiveDocument.Sheets("Summary")
ActiveDocument.Sheets("Summary").Activate
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.GetSheetObject("CH28").Restore
ActiveDocument.GetSheetObject("CH28").CopyBitmapToClipboard
PPApp.Visible = True
Set PPSlide = PPPres.Slides(11)
PPSlide.Shapes.Paste
ActiveDocument.GetSheetObject("CH28").Minimize
ActiveDocument.GetApplication.WaitForIdle

set PPApp = nothing
set PPPRes = nothing
set PPSlide = nothing

ActiveDocument.SaveAs "C:\xxx\xxx.qvw"
ActiveDocument.GetApplication.Quit
end sub

Simply change the italicised parts to suit your Qvw app/PPT & copy paste to re-do for other tabs.

Merry Christmas & hope it helps you on your way!