topic Export QV objects to ppt template in QlikView

Export QV objects to ppt template

Anonymous — Mon, 18 Jan 2016 11:42:53 GMT

Colleagues, good day!

My model has macro which export charts to new power point presentation.

Tell me please, is there in qv macro ability to export objects into ppt template (not creating new presentation) ?

There're test model and necessary ppt template in attachment.

Thanks.

Re: Export QV objects to ppt template

petter — Mon, 18 Jan 2016 12:29:03 GMT

Well there is nothing stopping you from storing the PowerPoint presentation as a POTX-file (PowerPoint Template). You can either do it manually with File Save As and select it or you can do it directly in your macro. The PowerPoint object model supports that by using the method SaveAs on the presentation object.

Re: Export QV objects to ppt template

Anonymous — Mon, 18 Jan 2016 12:35:19 GMT

Thanks!

My answer was - how i can export objects directly by macro???

Re: Export QV objects to ppt template

beck_bakytbek — Mon, 18 Jan 2016 12:54:48 GMT

Hi andrey try this:

Sub ExportPPT_1
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add
Set PPSlide = objPresentation.Slides.Add(1,11)

set up = ActiveDocument.GetApplication.GetUserPreferences
up.ChartUseCapNBorder = True
ActiveDocument.GetApplication.SetUserPreferences up

with objPresentation.Slides(1).Shapes(1)
.TextFrame.TextRange = "Test für PowerPoint Seite 1"
.Left = 100
.top = 15
.width=500
.height=20
end with

ActiveDocument.Sheets("SH01").Activate

ActiveDocument.GetSheetObject("TX01").CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.PasteSpecial(PasteHTML)
.Left = 100
.top = 45
.width=100
.height=160
end with
ActiveDocument.GetSheetObject("TX02").CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.Paste
.Left = 100
.top = 200
.width=100
.height=160
end with
ActiveDocument.GetSheetObject("TX03").CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.Paste
.Left = 100
.top = 355
.width=100
.height=160
end with
ActiveDocument.GetSheetObject("TX04").CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.Paste
.Left = 400
.top = 45
.width=100
.height=160
end with

ActiveDocument.GetSheetObject("TX05").CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.Paste
.Left = 400
.top = 200
.width=100
.height=160
end with

ActiveDocument.GetSheetObject("TX06").CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.Paste
.Left = 400
.top = 355
.width=100
.height=150
end with

ActiveDocument.GetSheetObject("TX09").CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.Paste
.Left = 408
.top = 510
.width=80
.height=25
end with

Set PPSlide = Nothing
Set PPPres = Nothing

End sub

if that helps you, let me know

Beck

Re: Export QV objects to ppt template

kkkumar82 — Mon, 18 Jan 2016 13:39:52 GMT

Hi Beck, Will the above code work from access point by pressing a button. My doubt here is macros which creates objects like Excel, Powerpoint will work from access point. Thanks Kiran

Re: Export QV objects to ppt template

Mon, 18 Jan 2016 13:46:18 GMT

You can use nPrinting Introducing QlikView NPrinting | Qlik

Re: Export QV objects to ppt template

HirisH_V7 — Mon, 18 Jan 2016 13:49:22 GMT

Hi,

Check now,

PFA,

Hirish

Re: Export QV objects to ppt template

beck_bakytbek — Mon, 18 Jan 2016 13:56:04 GMT

Hi Kiran, i understand your doubt, but i use These code in Access Point, and it does work. of cource in Internet Explorer plugin-Modus.

if you have any question, i can send my example.

Beck

Re: Export QV objects to ppt template

HirisH_V7 — Mon, 18 Jan 2016 14:09:13 GMT

Hi ,

I tried over access point but not working no response (IE Plugin)

I already enabled macros on QMC too.

Its working fine on local qv desktop .

Can you tell me have i missed anything.

-Hirish

Re: Export QV objects to ppt template

kkkumar82 — Mon, 18 Jan 2016 14:36:03 GMT

Ok, you say it is possible through only IE but not Chrome or FireFox. I earlier tried Excel export of some bar charts but was not successful even with IE plugin. I think it would be glad if you can create a post for IE what are the steps to achieve using a sample Excel and PPT export. Thanks Kiran

Re: Export QV objects to ppt template

Anonymous — Mon, 18 Jan 2016 14:37:39 GMT

Dear, thanks!

It works, but macro export charts into new presentation.

I need to use file template (Template.pptx in attachment)

best regards, Andrey

Re: Export QV objects to ppt template

beck_bakytbek — Mon, 18 Jan 2016 14:59:58 GMT

Hi Kiran,

i posted above my code and you can try to implement in your qv-Environment. Let me know when you solve this issue.

Beck

Re: Export QV objects to ppt template

HirisH_V7 — Mon, 18 Jan 2016 15:29:45 GMT

Hi,

You can use that particular Presentation file as per your requirement you can rename it.

-Hirish

Re: Export QV objects to ppt template

Anonymous — Mon, 18 Jan 2016 18:06:40 GMT

Dear, thanks for your advice.

But your example manualy create new presentation with text on top and others objects from QV.

I need to use current template, which is, for example, saved on disk D and macro must open it and paste objects from QV.

Best regards, Andrey

Thanks.

Re: Export QV objects to ppt template

Anonymous — Mon, 18 Jan 2016 20:26:42 GMT

i've already solved my problem

Set objPresentation = objPPT.Presentations.Open(datapath with ppt template) instead Set objPresentation = objPPT.Presentations.Add

Re: Export QV objects to ppt template

HirisH_V7 — Tue, 19 Jan 2016 05:08:03 GMT

Hirish.

Re: Export QV objects to ppt template

beck_bakytbek — Tue, 19 Jan 2016 08:33:18 GMT

Hi Andrey,

can you post you code as example,

thanks a lot

Beck

Re: Export QV objects to ppt template

HirisH_V7 — Tue, 19 Jan 2016 08:56:06 GMT

Hi,

Sub ExportPPT  
Set objPPT = CreateObject("PowerPoint.Application")  
objPPT.Visible = True  
Set objPresentation = objPPT.Presentations.open("YourPath\ppt.pptx")'file Path
Set PPSlide = objPresentation.Slides.Add(1,12)  
ActiveDocument.GetSheetObject("CH02").CopyBitmapToClipboard  
PPSlide.Shapes.Paste  
PPSlide.Shapes(PPSlide.Shapes.Count).Top = 150 'This sets the top location of the image  
PPSlide.Shapes(PPSlide.Shapes.Count).Left = 15 'This sets the left location  
PPSlide.Shapes(PPSlide.Shapes.Count).Width = 240  
PPSlide.Shapes(PPSlide.Shapes.Count).Height = 250  
  
  
Set PPSlide = objPresentation.Slides.Add(1,12)  
ActiveDocument.GetSheetObject("CH02").CopyBitmapToClipboard  
PPSlide.Shapes.Paste  
PPSlide.Shapes(PPSlide.Shapes.Count).Top = 150 'This sets the top location of the image  
PPSlide.Shapes(PPSlide.Shapes.Count).Left = 15 'This sets the left location  
PPSlide.Shapes(PPSlide.Shapes.Count).Width = 100  
PPSlide.Shapes(PPSlide.Shapes.Count).Height = 200  
  
Set PPSlide = Nothing  
Set PPPres = Nothing  
Set PPApp = Nothing  
End Sub

Thanks,

Hirish

Re: Export QV objects to ppt template

Anonymous — Tue, 19 Jan 2016 08:57:51 GMT

Re: Export QV objects to ppt template

beck_bakytbek — Tue, 19 Jan 2016 11:58:34 GMT

Hirish

Thanks a lot for your Blog/Help/Advice

Beck