次の方法で共有

Document.VBProject プロパティ (Visio)

  • [アーティクル]

図面の Microsoft Visual Basic for Applications (VBA) プロジェクトの制御に使用できるオートメーション オブジェクトを返します。 読み取り専用です。

構文

式。VBProject

式Document オブジェクトを表す変数。

戻り値

Object

注釈

VBProject プロパティによって返されるオブジェクトに関する情報を取得するには、次の手順に従います。

VBProject プロパティによって返されるオブジェクトに関する情報を取得するには

  1. [開発] タブの [コード] グループで、[Visual Basic] をクリックします。

  2. Visual Basic Editor の [ツール] メニューの [参照設定] をクリックします。

  3. [参照設定] ダイアログ ボックスで [Microsoft Visual Basic for Applications Extensibility 5.3] をオンにして、[OK] をクリックします。

  4. [表示] メニューの [オブジェクト ブラウザー] をクリックします。

  5. [ プロジェクト/ライブラリ ] の一覧で、 VBIDE タイプ ライブラリを選択します。

  6. [クラス] ボックスに、[VBProject] という名前のクラスが表示されていることを確認します。

図面内に VBA プロジェクトがまだなければ、VBProject プロパティによって作成されます。

セキュリティが強化された環境で Visio 2002 以降を実行する場合、システム管理者によって Visual Basic オブジェクト モデルへのアクセスがブロックされていると、VBProject プロパティでは例外が発生します。 このようなアクセスを有効にするためのユーザー インターフェイスやプログラムはなく、システム管理者がグループ ポリシーを設定してアクセスを有効 (または無効) にする必要があります。 これにより、共有しているテンプレートの Visual Basic プロジェクトにアクセスしてウイルス コードを埋め込むことによるウイルスの感染からシステムを保護できます。

例

次の VBA マクロは VBA プロジェクトによって参照されるライブラリの名前をイミディエイト ウィンドウに出力します。

このコードを実行する前に、[セキュリティ センター] ダイアログ ボックスの [マクロ設定] ページの [開発者マクロ設定] で [VBA プロジェクト オブジェクト モデルへのアクセスを信頼する] チェック ボックスがオンになっていることを確認します ([ファイル] タブをクリックし、[オプション]、[セキュリティ センター]、[セキュリティ センターの設定] の順にクリックします)。

Public Sub VBProject_Example()  
 
    Dim varThisProject As Variant 
    Dim intReferences As Integer 
 
    Set varThisProject = ThisDocument.VBProject  
 
    intReferences = varThisProject.References.Count  
    While intReferences > 0  
        Debug.Print varThisProject.References(intReferences).Name  
        intReferences = intReferences - 1  
    Wend 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。