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

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

Синтаксис

expression. VBProject

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

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

Объект

Замечания

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

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

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

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

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

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

5. В списке Проект или библиотека выберите библиотеку типов VBIDE .

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