通过

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。