Свойство Document.VBProject (Visio)

Статья
04/07/2023

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

Синтаксис

expression. VBProject

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

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

Объект

Замечания

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

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

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

Если проект VBA еще не существует в документе, свойство VBProject создает его.

Начиная с Visio 2002, свойство VBProject вызывает исключение, если вы работаете в среде с повышенной безопасностью и системный администратор заблокировал доступ к объектной модели Visual Basic. Пользовательский интерфейс или программный способ включения не существует: системный администратор должен включить (или отключить) доступ, задав групповая политика. Это помогает защититься от вирусов, которые распространяются путем доступа к проектам 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 и обратная связь.

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