Presentation.TemplateName Property (PowerPoint)
Returns the name of the design template associated with the specified presentation. Read-only.
expression A variable that represents a Presentation object.
The returned string includes the MS-DOS file name extension (for file types that are registered) but doesn't include the full path.
The following example applies the design template Professional.pot to the presentation Pres1.ppt if it is not already applied to it.
With Presentations("Pres1.ppt") If .TemplateName <> "Professional.pot" Then .ApplyTemplate "c:\program files\microsoft office" & _ "\templates\presentation designs\Professional.pot" End If End With