Document.VBProjectData-Eigenschaft (Visio)

Gibt die Microsoft Visual Basic-Projektdaten zurück, die mit einem Dokument gespeichert werden. Schreibgeschützt.

Syntax

Ausdruck. VBProjectData

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Rückgabewert

Byte()

Beispiel

Verwenden Sie die VBProjectData-Eigenschaft , um zu bestimmen, ob ein Dokument über ein Projekt verfügt. Mit dem folgenden Makro wird veranschaulicht, wie Sie zu diesem Zweck einen Verweis auf ein Dokument in Microsoft Visio abrufen. Der Code wird in einem Programm außerhalb des Visio-Dokuments ausgeführt.

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

Ist dem Dokument kein Projekt zugeordnet, wird im Direktfenster 0 -1 gemeldet. Andernfalls ist die obere Grenze größer als Null (0). 0 1535 weist beispielsweise darauf hin, dass das Projekt 1.536 Byte Daten enthält.

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.