TemplateName Property
Returns the name of the design template associated with the specified presentation. Read-only String.
Remarks
The returned string includes the MS-DOS file name extension (for file types that are registered) but doesn't include the full path.
Example
The following example applies the design template Professional.pot to the presentation Pres1.ppt if it's 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