Свойство Application.VBE (Visio)

Статья
04/07/2023

Возвращает корневой объект объектной модели, предоставляемой Microsoft Visual Basic для приложений (VBA). Используйте это свойство для доступа к проектам VBA, связанным с открытыми в настоящее время документами Microsoft Visio, и управления ими. Только для чтения.

Синтаксис

expression. VBE

выражение: переменная, представляющая объект Application.

Возвращаемое значение

Объект

Замечания

Чтобы получить сведения об объекте, возвращаемом свойством Vbe , выполните следующие действия.

Получение сведений об объекте, возвращаемом свойством Vbe

В группе Код на вкладке Разработчик щелкните Visual Basic.
В редакторе Visual Basic в меню Сервис выберите ссылки.
В диалоговом окне Ссылки щелкните Microsoft Visual Basic для приложений Расширяемость 5.3, а затем нажмите кнопку ОК.
В меню Вид выберите пункт Обозреватель объектов.
В списке Проект или библиотека выберите библиотеку типов VBIDE .
В списке Классы проверьте класс С именем VBE.

Начиная с Visio 2002, свойство Vbe создает исключение, если вы работаете в среде с повышенной безопасностью и системный администратор заблокировал доступ к объектной модели VBA. Пользовательский интерфейс или программный способ включения не существует: системный администратор должен включить (или отключить) доступ, задав групповая политика. Это помогает защититься от вирусов, которые распространяются путем доступа к проектам Visual Basic в часто используемых шаблонах и внедрения в них вирусного кода.

Пример

Этот макрос VBA показывает, как использовать свойство Vbe для определения количества открытых проектов VBA в экземпляре Visio.

Перед выполнением этого кода убедитесь, что установлен флажок Доверять доступу к объектной модели проекта VBA в разделе Параметры макроса разработчика на странице Параметры макросов диалогового окна Центр управления безопасностью (перейдите на вкладку Файл , щелкните Параметры, щелкните Центр управления безопасностью, а затем — Параметры центра управления безопасностью).

 
Public Sub Vbe_Example() 
 
     Dim vbideVBE As VBIDE.VBE 
 
     Set vbideVBE = Visio.Application.Vbe 
     Debug.Print vbideVBE.VBProjects.Count 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через