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

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

Синтаксис

выражение. VBProject

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

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

Объект

Примечания

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

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

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

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

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

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

5. В списке Project/Library выберите библиотеку типов 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 и обратная связь.