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 支援與意見反應。