Document.GetThemeNamesU メソッド (Visio)

図面に含まれるロケールに依存しないテーマ名の配列を返します。

構文

式。GetThemeNamesU (eType, NameArray())

式Document オブジェクトを返す式。

パラメーター

名前	必須 / オプション	データ型	説明
eType	必須	VisThemeTypes	テーマの種類で、VisThemeTypes 列挙の列挙値です。 使用可能な値については備考を参照してください。
NameArray()	必須	String	出力パラメーターです。 メソッドが返すロケールに依存しないテーマ名の配列です。

戻り値

なし

解説

eType パラメーターとして、Visio タイプ ライブラリで宣言される VisThemeTypes 列挙の値を渡します。

定数	値	説明
visThemeTypeColor	1	テーマの色です。
visThemeTypeEffect	2	テーマの効果です。

NameArray() 出力パラメーターとして、String 型の、次元を指定しない空の配列を渡します。 Visio は図面に含まれるロケールに依存しないテーマ名を入力した配列を返します。

ドキュメント内のロケール固有のテーマの名前を取得するには、 Document.GetThemeNames メソッドを 使用します。

注:

Microsoft Visio 2000 以降では、ローカル名とユニバーサル名の両方を使用して、Visio の図形、マスター、ドキュメント、ページ、行、アドオン、セル、ハイパーリンク、スタイル、フォント、マスター ショートカット、UI オブジェクト、テーマ、レイヤーを参照できます。 たとえば、ユーザーが図形に名前を付けると、ユーザーはローカル名を指定します。Microsoft Office Visio 2003 以降、シェイプシート スプレッドシートには、セルの数式と値にユニバーサル名のみが表示されます。 (以前のバージョンの 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 のサポートおよびフィードバックを参照してください。