Compartilhar via

Propriedade Document.VBProjectData (Visio)

  • Artigo

Retorna os dados do projeto do Microsoft Visual Basic armazenados com um documento. Somente leitura.

Sintaxe

expressão. VBProjectData

Expressão Uma variável que representa um objeto Document .

Valor de retorno

Byte()

Exemplo

Use a propriedade VBProjectData para determinar se um documento tem um projeto. A macro a seguir mostra como obter uma referência a um documento do Microsoft Visio para determinar se o documento tem um projeto. O código é executado em um programa externo ao documento do 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

Se o documento não possuía nenhum projeto associado a ele, "0 -1" seria relatado na janela Immediate. Se o documento possuía um projeto, o limite superior seria algum número maior que zero (0). Por exemplo, "0 1535" indicaria que um projeto possuía 1.536 bytes de dados.

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.