topic Export all sheets to ppt in QlikView

Export all sheets to ppt

Anonymous — Fri, 28 Feb 2014 03:07:26 GMT

Hi Community

I got the following macro but it will only export the active sheet and also the image got truncated.

sub exportppt

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

Set PPSlide = objPresentation.Slides.Add(1,11)

ActiveDocument.ActiveSheet.CopyBitmapToClipboard

PPSlide.Shapes.Paste

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

End Sub

How can i export all the sheets in the application into different slides without the image being truncated?

Re: Export all sheets to ppt

Siva_Sankar — Fri, 28 Feb 2014 05:22:08 GMT

Look at this discussion http://community.qlik.com/message/240022#240022 and http://community.qlik.com/message/196413#196413

Regards.

Siva

Re: Export all sheets to ppt

Anonymous — Mon, 03 Mar 2014 14:14:44 GMT

Try this.....

sub exportppt

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

End Sub

Re: Export all sheets to ppt

Anonymous — Wed, 05 Mar 2014 07:46:52 GMT

Thanks Siva. But i read this 2 posts before their macro scripts didn't work for me.

Re: Export all sheets to ppt

sunilkumarqv — Wed, 05 Mar 2014 07:47:10 GMT

Hi SurynnChin

Your are actually on the way use for conditions for no of sheets

For i = 0 To ActiveDocument.NoOfSheets - 1

' Set MySheet = ActiveDocument.GetSheet(i)

Hope it helps

Re: Re: Export all sheets to ppt

Anonymous — Wed, 05 Mar 2014 07:48:43 GMT

The macro did allow me to copy the image for all sheets in the qv to a ppt slide but however the images got truncated. Any idea for this? Attached a sample app with your macro QlikView demo: Credit Risk Management and the export ppt.

Re: Export all sheets to ppt

Anonymous — Wed, 05 Mar 2014 14:31:00 GMT

At first it did not make sense that the images were truncated, but after running it on my side and comparing results with your pptx I know what the issue is.

The images are actually not truncated. Rather, the image is only what was visible/in view for the qvw app when the macro executes. So, for example, resize the qlikview window to really small and then execute macro (output images are really small). Then resize window to as big as you can make it on the monitor and execute macro (output images as big as you could make it on your monitor).

This proved challenging to explain. Let me know if this doesn't make sense and I'll attempt to illustrate again. Hope that helps!

Re: Export all sheets to ppt

Anonymous — Thu, 06 Mar 2014 02:19:29 GMT

Thanks for you explanation.

Is it possible to output the image after i fit zoom to window?

Re: Export all sheets to ppt

Anonymous — Thu, 06 Mar 2014 14:06:55 GMT

I'm sorry....I don't understand your question.

Are you saying - is it possible to fit the zoom to window (using macro) and then export image to ppt?

Re: Re: Export all sheets to ppt

Peter_Cammaert — Thu, 06 Mar 2014 14:28:35 GMT

Add the following four statements to your macro, immediately after the SUB header:

ActiveDocument.ActiveSheet.FitZoomToWindow

ActiveDocument.GetApplication.WaitForIdle

ActiveDocument.GetApplication.Refresh

ActiveDocument.ActiveSheet.ApplyZoomToAllSheets

Re: Export all sheets to ppt

Anonymous — Fri, 07 Mar 2014 02:01:29 GMT

I did what as you told but i still can't get a full image.

Re: Export all sheets to ppt

Anonymous — Fri, 07 Mar 2014 02:03:33 GMT

Yes but it's seem like even i have fit the zoom to window and then export, i still can't output the full image.

Re: Export all sheets to ppt

Anonymous — Fri, 07 Mar 2014 14:19:32 GMT

Can you possibly provide the most current demo files you're testing with?

Re: Re: Export all sheets to ppt

Anonymous — Fri, 07 Mar 2014 15:30:48 GMT

As attached and i reattached the ppt as well.

Re: Export all sheets to ppt

Anonymous — Fri, 07 Mar 2014 15:39:59 GMT

Hi Surynn,

Please use array:

Sub Export_ppt

Dim myArray(2)

myArray(0) = "LB04"

myArray(1) = "LB06"

myArray(2) = "CH02"

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

For count = 0 to ubound(MyArray)

Set PPSlide = objPresentation.Slides.Add(1,11)

ActiveDocument.GetSheetObject(MyArray(count)).CopyBitmapToClipboard

PPSlide.Shapes.Paste

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

End Sub

There are two drop-down fields on the left side from macro-editor - the settings must be system access.

Re: Re: Re: Export all sheets to ppt

Peter_Cammaert — Fri, 07 Mar 2014 15:56:53 GMT

Weird.

I do get a complete picture in every powerpoint sheet. See attachment.

Is your desktop set at 100% scaling?

Re: Re: Export all sheets to ppt

Anonymous — Fri, 07 Mar 2014 16:57:58 GMT

Yes at 100% scaling. You didn't get a complete pic for the last sheet, the last sheet is a bit longer.

Re: Re: Export all sheets to ppt

Anonymous — Fri, 07 Mar 2014 16:59:48 GMT

Thanks Nitha for your response. But i want export the whole sheet instead of a few objects.

Re: Export all sheets to ppt

Anonymous — Fri, 07 Mar 2014 17:43:24 GMT

The issue doesn't appear to be with the sizing of the sheet in the window view rather the overall size of the qlikview window. I tested removing the tabrow as well as disabled any toolbars to get "more" on the screen and in fact, there was more in the image exported to ppt.

So that, in part, clarifies where the problem is.......now the question is how to resolve it....of course you could always call the windows script and execute a printscreen image to copy...but that would result in seeing the application pieces in the image as well which I imagine is not desired.

Re: Export all sheets to ppt

Anonymous — Mon, 10 Mar 2014 01:43:04 GMT

You mean the bigger the screen or the higher the screen resolution, the more image i got? So if it want get a complete image of the application, my application window size must smaller than my screen? Call the windows script and execute a printscreen image to copy is the only way out?