Document.VBProject 属性 (Visio)

返回一个自动化对象，该对象可用于控制文档的 Microsoft Visual Basic for Applications (VBA) 项目。 此为只读属性。

语法

表达式。VBProject

表达 一个代表 Document 对象的变量。

返回值

Object

备注

若要获取 有关 VBProject 属性返回的对象的信息，请执行以下步骤：

要获取有关 VBProject 属性返回的对象的信息，请执行下列操作：

1. 在“开发工具”选项卡上的“代码”组中，单击“Visual Basic”。

2. 在 Visual Basic 编辑器的“工具”菜单中，单击“引用”。

3. 在“引用”对话框中，单击“Microsoft Visual Basic for Applications Extensibility 5.3”，然后单击“确定”。

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