Document.VBProject-Eigenschaft (Visio)

Artikel
10/16/2024

Gibt ein Automatisierungsobjekt zurück, mit dem Sie das VBA-Projekt (Microsoft Visual Basic für Applikationen) des Dokuments steuern können. Schreibgeschützt.

Syntax

Ausdruck. VBProject

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Rückgabewert

Objekt

Hinweise

Führen Sie die folgenden Schritte aus, um Informationen zu dem objekt abzurufen, das von der VBProject-Eigenschaft zurückgegeben wird:

So rufen Sie Informationen zu dem Objekt ab, das von der

Klicken Sie in der Gruppe Code auf der Registerkarte Entwicklertools auf Visual Basic.
Klicken Sie im Visual Basic-Editor im Menü Extras auf Verweise.
Klicken Sie im Dialogfeld Verweise auf Microsoft Visual Basic for Applications Extensibility 5.3, und klicken Sie dann auf OK.
Klicken Sie im Menü Ansicht auf Objektbrowser.
Wählen Sie aus der Liste Projekt/Bibliothek die Typbibliothek VBIDE aus.
Untersuchen Sie in der Liste Klassen die Klasse mit dem Namen VBProject.

Wenn das Dokument noch kein VBA-Projekt enthält, wird durch die VBProject-Eigenschaft eines erstellt.

Ab Visio 2002 löst die VBProject-Eigenschaft eine Ausnahme aus, wenn Sie in einer Umgebung mit verbesserter Sicherheit ausgeführt werden und Ihr Systemadministrator den Zugriff auf das Visual Basic-Objektmodell blockiert hat. Es gibt keine Benutzeroberfläche oder programmgesteuerte Möglichkeit, dies zu aktivieren. Der Systemadministrator muss den Zugriff durch Festlegen eines Gruppenrichtlinie aktivieren (oder deaktivieren). Dies trägt zum Schutz vor Viren bei, die sich verbreiten, indem auf die Visual Basic-Projekte in häufig verwendete Vorlagen zugegriffen und der Viruscode in diese eingefügt wird.

Beispiel

Dieses VBA-Makro zeigt, wie Sie die Namen von Bibliotheken, auf die in einem VBA-Projekt verwiesen wird, im Direktfenster anzeigen.

Stellen Sie vor dem Ausführen dieses Codes sicher, dass das Kontrollkästchen Zugriff auf das VBA-Projektobjektmodell vertrauen unter Entwicklermakroeinstellungen auf der Seite Makroeinstellungen des Dialogfelds Trust Center aktiviert ist (klicken Sie auf die Registerkarte Datei , klicken Sie auf Optionen, klicken Sie auf Trust Center, und klicken Sie dann auf Trust Center-Einstellungen).

Public Sub VBProject_Example()  
 
    Dim varThisProject As Variant 
    Dim intReferences As Integer 
 
    Set varThisProject = ThisDocument.VBProject  
 
    intReferences = varThisProject.References.Count  
    While intReferences > 0  
        Debug.Print varThisProject.References(intReferences).Name  
        intReferences = intReferences - 1  
    Wend 
 
End Sub

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.

Freigeben über