Qlik Community

Ask a Question

QlikView App Dev

Discussion Board for collaboration related to QlikView App Development.

Support Cases coming to Qlik Community Oct. 4! Start chats, open cases, explore resources. READ DETAILS
Showing results for 
Search instead for 
Did you mean: 
Not applicable

How to add a title to PowerPoint using a macro

I am using this macro to export QlikView charts to a PowerPoint document.


Sub pptTRNN

'An array with the objects you want to export to powerpoint

Dim myArray(21)

myArray(0) = "CH1424"

myArray(1) = "CH1465"

myArray(2) = "CH1428"

myArray(3) = "CH1430"

myArray(4) = "CH1416"

myArray(5) = "CH1414"

myArray(6) = "CH1412"

myArray(7) = "CH1410"

myArray(8) = "CH1408"

myArray(9) = "CH1406"

myArray(10) = "CH1404"

myArray(11) = "CH1402"

myArray(12) = "CH1400"

myArray(13) = "CH1398"

myArray(14) = "CH1396"

myArray(15) = "CH1394"

myArray(16) = "CH1392"

myArray(17) = "CH1390"

myArray(18) = "CH1388"

myArray(19) = "CH3470"

myArray(20) = "CH1386"

myArray(21) = "CH1432"

'Create ppt object

Set PPApp = CreateObject("PowerPoint.Application")

PPApp.Visible = True

Set objPresentation = PPApp.Presentations.Add

'Apply a template if you want one

'objPresentation.ApplyTemplate _

' ("C:\mytemplate.potx")

'For each object in the array create a new slide and paste it.

For each item in myArray

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

Set v=ActiveDocument.GetVariable("PRINT")
v.SetContent "Y",true
v.SetContent "N",true



'Clean up

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

End Sub

It works great but now the user wants to add a title.  I have this expresssion I would like to use.


     if(isnull([Customer Name]),

     if(isnull([Agent Name Current]),' ',

     [Agent Name Current]),[Customer Name]),vCustomerName)

I would like to know how to code this into the above macro.

0 Replies