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

Возвращает данные проекта Microsoft Visual Basic, хранящиеся в документе. Только для чтения.

Синтаксис

выражение. VBProjectData

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

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

Байт()

Пример

Чтобы определить, есть ли в документе проект, используйте свойство VBProjectData . Следующий макрос показывает, как получить ссылку на документ в Microsoft Visio, чтобы определить, есть ли в документе проект. Код выполняется из программы за пределами документа Visio.

Private Sub Form_Load() 
 
 'Declare document variable 
 'and Array variable to hold project data. 
 Dim vsoDocument As Visio.Document 
 Dim btProjectData() As Byte 
 
 'Get the first object in the Documents collection 
 'of this instance of Visio. 
 Set vsoDocument = GetObject(, "Visio.Application").Documents(1) 
 
 'Populate the array with project data. 
 btProjectData = vsoDocument.VBProjectData 
 Debug.Print LBound(btProjectData); UBound(btProjectData) 
 
End Sub

Если с документом не связан ни один проект, в окне интерпретации будет отображаться значение "0 -1". Если бы в документе был проект, верхней границей было бы некоторое число больше нуля (0). Например, "0 1535" будет означать, что проект содержит 1536 байт данных.

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

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