Application.VBAEnabled 属性 (Visio)

指定应用程序中是否启用了 Microsoft Visual Basic for Applications (VBA)。 此为只读属性。

语法

表达式。VBAEnabled

expression：表示 Application 对象的变量。

返回值

Boolean

说明

如果在 VBA 处于启用状态时打开包含 VBA 项目的文档，则当打开该文档时，VBA 会变为禁用：

• Microsoft Visio 不再在该文档中执行宏，但是这些宏名称仍然会显示在“宏”对话框中（按 Alt+F8）。

• Visio 将继续触发该项目的事件。

如果在 VBA 处于禁用状态时打开包含 VBA 项目的文档，则当打开该文档时，VBA 会变为启用：

• Visio 不会触发项目的事件，即使 VBA 已变为启用也是如此。

• 宏保持禁用状态。

如果在信任中心的“宏设置”页上的“开发人员宏设置”下选中了“对 VBA 项目对象模型的信任访问”复选框，VBAEnabled 属性将设置为 True (单击“文件”选项卡，单击“选项”，单击“信任中心”，然后单击“信任中心设置”) 。 如果未选中，该属性则报告 False。

示例

您可能有一个需要启用 VBA 才能正常运行的文档，例如文档 DocumentOpened 事件处理程序中的代码。 在打开一个依赖于 VBA 的文档之前，可以在加载项中运行下面的代码，来验证应用程序中是否启用了 VBA。

运行此过程之前，请为变量 filename 提供一个有效的文档文件名。

Public Sub VBAEnabled_Example() 
 
    Dim vsoDocument As Visio.Document 
    Dim blsStatus As Boolean 
 
    blsStatus = Application.VBAEnabled  
    If Not blsStatus Then 
 
        MsgBox "For this process to continue, VBA must be enabled." & _ 
        " Please enable VBA and start over." 
 
    Else 
 
        Set vsoDocument = Documents.Open("filename ") 
 
    End if 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。