共用方式為

Document.GetThemeNames 方法 (Visio)

會傳回文件中所包含與地區設定相關的佈景主題名稱陣列。

語法

表達式。GetThemeNames (eType、 NameArray () )

表達 會傳回 Document 物件的表達式。

參數

名稱 必要/選用 資料類型 描述
eType 必要 VisThemeTypes 佈景主題的類型，也就是 VisThemeTypes 列舉中的列舉值。 請參閱 「 備註 」 可能的值。
NameArray () 必要 字串 Out 參數。 由方法所傳回與地區設定相關的佈景主題名稱陣列。

傳回值

無

註解

如果是 eType 參數，請傳遞 VisThemeTypes 列舉中的值 (此列舉是在 Visio 型別程式庫中宣告)。

常數 值 描述
visThemeTypeColor 1 色彩佈景主題。
visThemeTypeEffect 2 效果佈景主題。

如果是 NameArray() Out 參數，請傳遞 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 支援與意見反應。

  • Last updated on