Document.GetThemeNames メソッド (Visio)

  • [アーティクル]

図面に含まれるロケール固有のテーマ名の配列を返します。

構文

式。GetThemeNames (eType, NameArray())

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

パラメーター

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

戻り値

なし

解説

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

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

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

ドキュメントでロケールに依存しないテーマを取得するには、 Document.GetThemeNamesU メソッドを 使用します。

注:

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