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

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

Синтаксис

выражение. Письменность VBE

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

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

Объект

Примечания

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

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

  1. В группе " Код " на вкладке "Разработчик " щелкните "Visual Basic".

  2. В редакторе Visual Basic в меню Сервис выберите пункт Ссылки.

  3. В диалоговом окне "Ссылки" выберите пункт Microsoft Visual Basic для приложений Extensibility 5.3 и нажмите кнопку ОК.

  4. В меню Вид выберите пункт Обозреватель объектов.

  5. В списке Project/Library выберите библиотеку типов VBIDE .

  6. В списке Классы проверьте класс с именем 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 и обратная связь.