Document.GetThemeNames 方法 (Visio)

返回由文档中包含的特定于区域设置的主题名称组成的数组。

语法

表达式。GetThemeNames (eType， NameArray () )

表达 返回 Document 对象的表达式。

参数

名称	必需/可选	数据类型	说明
eType	必需	VisThemeTypes	主题的类型，是 VisThemeTypes 枚举中的枚举值。 有关可能值，请参见备注。
NameArray ()	必需	字符串	输出参数。 由该方法返回的特定于区域设置的主题名称组成的数组。

返回值

Nothing

注解

为 eType 参数传递在 Visio 类型库中声明的 VisThemeTypes 枚举中的一个值。

常量	值	Description
visThemeTypeColor	1	颜色主题。
visThemeTypeEffect	2	效果主题。

为 NameArray() 输出参数传递一个 String 类型的无量纲空数组。 Visio 返回用文档中所包含的特定于区域设置的主题名称填充的数组。

若要获取文档中与区域设置无关的主题，请使用 Document.GetThemeNamesU 方法。

注意

从 Microsoft Visio 2000 开始，可以使用本地名称和通用名称来引用 Visio 形状、主控形状、文档、页面、行、加载项、单元格、超链接、样式、字体、主控形状快捷方式、UI 对象、主题和图层。 例如，当用户为形状命名时，该用户正在指定本地名称。从 Microsoft Office Visio 2003 开始，ShapeSheet 电子表格仅显示单元格公式和值中的通用名称。 (在 Visio 的早期版本中，通用名称在用户界面中不可见。) 作为开发人员，如果不希望每次本地化解决方案时都更改名称，则可以在程序中使用通用名称。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 GetThemeNames 方法获取活动文档中特定于区域设置的主题颜色和主题效果的名称列表。 它将在“立即”窗口中输出该列表。

Public Sub GetThemeNames_Example() 
 
    Dim astrNames() As String 
    Dim strThemeName As String 
    Dim intArrayCounter As Integer 
     
    ActiveDocument.GetThemeNames visThemeTypeColor, astrNames 
     
    For intArrayCounter = LBound(astrNames) To UBound(astrNames) 
        strThemeName = astrNames(intArrayCounter) 
        Debug.Print strThemeName 
    Next 
     
    Debug.Print "-------------------------------------------" 
     
    ActiveDocument.GetThemeNames visThemeTypeEffect, astrNames 
     
    For intArrayCounter = LBound(astrNames) To UBound(astrNames) 
        strThemeName = astrNames(intArrayCounter) 
        Debug.Print strThemeName 
    Next 
     
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。