Propriété Document.VBProjectData (Visio)

Renvoie les données du projet Microsoft Visual Basic stockées avec un document. En lecture seule.

Syntaxe

expression. VBProjectData

Expression Variable qui représente un objet Document .

Valeur renvoyée

Byte()

Exemple

Utilisez la propriété VBProjectData pour déterminer si un document a un projet. La macro suivante indique comment obtenir la référence à un document dans Microsoft Visio pour savoir s’il contient un projet. Le code est exécuté à partir d’un programme externe au document 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

Si le document n'est associé à aucun projet, « 0 - 1 » apparaît dans la fenêtre Exécution. S'il en contenait un, la limite supérieure serait un nombre supérieur à zéro (0). Par exemple, « 0 1535 » indiquerait qu'un projet avait 1 536 octets de données.

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.