TemplateName 属性

       

返回与指定演示文稿相关的设计模板名称。只读。String 类型。

说明

返回的字符串包含 MS-DOS 文件扩展名(对于已注册的文件类型),但不包括完整路径名。

示例

本示例中如果设计模板“Proffestional.pot”尚未应用于演示文稿“Pres1.ppt”,则将该模板应用于该演示文稿。

With Presentations("Pres1.ppt")
    If .TemplateName <> "Professional.pot" Then
        .ApplyTemplate "c:\program files\microsoft office" & _
            "\templates\presentation designs\Professional.pot"
    End If
End With