How to add a title to PowerPoint using a macro

[#1]

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
ActiveDocument.GetSheetObject(item).restore
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.GetSheetObject(item).CopyBitMapToClipboard
ActiveDocument.GetSheetObject(item).minimize
v.SetContent "N",true

PPSlide.Shapes.Paste


Next


'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(len(vCustomerName)-0,

     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.