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

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

  • Статья

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

Синтаксис

expression. VBProjectData

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

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

Byte()

Пример

Используйте свойство 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 и обратная связь.