ThisDocument-Objekt (Visio)
Das vba-Projekt (Visual Basic for Applications) jedes Visio-Dokuments verfügt über ein Klassenmodul namens ThisDocument. Wenn auf den Code im Projekt verwiesen wird, gibt das ThisDocument-Objekt einen Verweis auf das Document-Objekt des Projekts zurück.
Sie können den Namen des VBA-Projekts in einem Meldungsfeld anzeigen, indem Sie die folgende Anweisung verwenden.
MsgBox ThisDocument.Name
Sie können die erste Seite des Vba-Projekts mit dem folgenden Code abrufen.
Dim vsoPage As Visio.Page
Set vsoPage = ThisDocument.Pages.Item(1)
Hinweise
Wenn Sie das dem VBA-Projekt zugeordnete Dokument ändern möchten, verwenden Sie das ThisDocument-Objekt.
Wenn Sie ein Dokument ändern möchten, aber nicht unbedingt das dem VBA-Projekt zugeordnete Dokument, rufen Sie ein Document-Objekt aus der Documents-Auflistung ab.
Die ActiveDocument-Eigenschaft gibt häufig, aber nicht unbedingt einen Verweis auf das gleiche Dokument zurück wie das ThisDocument-Objekt. Die Objekte ActiveDocument und ThisDocument sind identisch, wenn es sich bei dem im aktiven Visio-Fenster angezeigten Dokument um das Dokument handelt, das das Projekt des ThisDocument-Objekts enthält. Ob im Code das ActiveDocument- oder das ThisDocument-Objekt verwendet wird, hängt vom Zweck des Programms ab.
Hinweis
Sie können den Satz von Eigenschaften und Methoden des Document-Objekts eines Projekts erweitern, indem Sie dem ThisDocument-Klassenmodul dieses Projekts öffentliche Eigenschaften und Methoden hinzufügen. Die neuen Methoden und Eigenschaften werden wie die von Visio implementierten integrierten Methoden und Eigenschaften verfügbar gemacht.
Die neuen Methoden und Eigenschaften stehen nicht zur Verfügung, wenn Sie auf andere Document-Objekte verweisen. Das ThisDocument-Objekt steht nicht für Code zur Verfügung, der nicht Bestandteil des VBA-Projekts eines Visio-Dokuments ist.
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.