全部显示

ActiveTheme 属性

返回指定文档的活动主题及该主题的格式选项。如果该文档无活动主题，则返回“none”。String 类型，只读。

说明

有关此属性返回值的详细解释，请参阅 ApplyTheme 方法的 Name 参数。此属性的返回值可能与主题的显示名称不对应。要返回一个主题的显示名称，可以使用 ActiveThemeDisplayName 属性。

示例

本示例实现的功能是：为当前文档应用主题并显示活动主题的名称及主题格式选项。

Sub CheckTheme() 
    ActiveDocument.ApplyTheme "artsy 100"
    MsgBox ActiveDocument.ActiveTheme 
End Sub