共用方式為

Document.GetThemeNamesU 方法 (Visio)

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

語法

表情。GetThemeNamesU (eType， NameArray () )

詞 一個回傳 文件 物件的表達式。

參數

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

傳回值

無

註解

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

常數 值 描述
vis主題類型顏色 1 色彩佈景主題。
visThemeTypeEffect 2 效果佈景主題。

如果是 NameArray() Out 參數，請傳遞 String 類型的空白、無維度陣列。 Visio 傳回的陣列會填入文件中所包含與地區設定無關的佈景主題名稱。

要取得文件中特定區域主題的名稱，請使用 Document.GetThemeNames 方法。

注意事項

從 Microsoft Visio 2000 開始，你可以同時使用本地與通用名稱來指稱 Visio 的圖形、主圖、文件、頁面、列、附加元件、儲存格、超連結、樣式、字型、主快捷鍵、UI 物件、主題和圖層。 例如，當使用者命名一個形狀時，該使用者是在指定一個本地名稱。從 Microsoft Office Visio 2003 開始，ShapeSheet 試算表僅在儲存格公式與值中顯示通用名稱。 (在早期版本的 Visio 中，通用名稱在使用者介面中是無法顯示的。) 作為開發者，當你不想每次解決方案在地化時都更改名稱時，可以在程式中使用通用名稱。

範例

以下 Microsoft Visual Basic for Applications (VBA) 巨集 說明如何使用 GetThemeNamesU 方法取得活動文件中區域無關的主題顏色與主題效果名稱清單。 它會在即時視窗列印清單。

Public Sub GetThemeNamesU_Example() 
 
    Dim astrNames() As String 
    Dim strThemeName As String 
    Dim intArrayCounter As Integer 
     
    ActiveDocument.GetThemeNamesU visThemeTypeColor, astrNames 
     
    For intArrayCounter = LBound(astrNames) To UBound(astrNames) 
        strThemeName = astrNames(intArrayCounter) 
        Debug.Print strThemeName 
    Next 
     
    Debug.Print "-------------------------------------------" 
     
    ActiveDocument.GetThemeNamesU 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