Document.VBProjectData プロパティ (Visio)

図面と共に格納されている Microsoft Visual Basic プロジェクトのデータを返します。 読み取り専用です。

構文

式。VBProjectData

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

戻り値

Byte()

例

VBProjectData プロパティを使用して、ドキュメントにプロジェクトがあるかどうかを判断します。 次のマクロでは、Microsoft Visio の図面への参照を取得して、図面にプロジェクトが含まれているかどうかを判別します。 コードは Visio 図面の外部にあるプログラムで実行します。

Private Sub Form_Load() 
 
 'Declare document variable 
 'and Array variable to hold project data. 
 Dim vsoDocument As Visio.Document 
 Dim btProjectData() As Byte 
 
 'Get the first object in the Documents collection 
 'of this instance of Visio. 
 Set vsoDocument = GetObject(, "Visio.Application").Documents(1) 
 
 'Populate the array with project data. 
 btProjectData = vsoDocument.VBProjectData 
 Debug.Print LBound(btProjectData); UBound(btProjectData) 
 
End Sub

図面にプロジェクトが関連付けられていない場合、イミディエイト ウィンドウに "0 -1" が表示されます。 図面にプロジェクトが含まれる場合、上限はゼロ (0) より大きい数値になります。 たとえば、"0 1535" はプロジェクトが 1,536 バイトのデータを含むことを示します。

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

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