返回与指定演示文稿相关的设计模板名称。只读。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