Visio) (Document.VBProjectData 屬性

會傳回儲存於文件的 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 支援與意見反應。