全部显示

ActiveThemeDisplayName 属性

返回指定文档的活动主题的显示名称。如果该文档无活动主题，则返回“none”。String 类型，只读。

说明

主题的显示名称是显示在“主题”对话框中的名称。此名称可能与设置默认主题或为文档应用主题的字符串不对应。

示例

本示例返回当前文档活动主题的显示名称。

Sub DisplayThemeName()
    ActiveDocument.ApplyTheme "artsy 100"
    MsgBox ActiveDocument.ActiveThemeDisplayName
End Sub