TemplateName Property 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