InvisibleApp. ActiveDocument-Eigenschaft (Visio)InvisibleApp.ActiveDocument property (Visio)

Gibt das aktive Document -Objekt zurück, bei dem es sich um das im aktiven Fenster angezeigte Dokument handelt.Returns the active Document object, which is the document shown in the active window. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. ActiveDocumentexpression.ActiveDocument

Ausdruck Eine Variable, die ein InvisibleApp -Objekt darstellt.expression A variable that represents an InvisibleApp object.

RückgabewertReturn value

DokumentDocument

BemerkungenRemarks

Wenn keine Dokumente geöffnet sind, gibt es kein aktives Dokument, und die ActiveDocument-Eigenschaft gibt den Wert Nothing zurück, ohne eine Ausnahme auszulösen.When no documents are open, there is no active document and the ActiveDocument property returns the value Nothing and does not raise an exception.

Wenn sich Ihr Code im Microsoft Visual Basic-Projekt eines Visio-Dokuments befindet, gibt die ActiveDocument -Eigenschaft häufig, aber nicht unbedingt, einen Verweis auf das ThisDocument -Objekt zurück, ein Klassenmodul im Visual Basic-Projekt jedes Microsoft Visio Dokument.If your code is in the Microsoft Visual Basic project of a Visio document, the ActiveDocument property often, but not necessarily, returns a reference to the ThisDocument object, a class module in the Visual Basic project of every Microsoft Visio document. Wenn das ThisDocument-Objekt im aktiven Fenster angezeigt wird, verweisen die Objekte ActiveDocument und ThisDocument auf dasselbe Dokument.If the ThisDocument object is shown in the active window, the ActiveDocument object and the ThisDocument object refer to the same document. Wenn Code in einem Projekt auf das ThisDocument-Objekt verweist, wird ein Verweis auf das Document-Objekt des Projekts zurückgegeben.When the ThisDocument object is referenced from code in a project, it returns a reference to the project's Document object.

Ob Sie das ActiveDocument-Objekt oder das ThisDocument-Objekt verwenden, hängt vom Zweck des Codes ab.Whether you use the ActiveDocument object or the ThisDocument object depends on the purpose of your code.

Sie können das Ergebnis, das von der ActiveDocument-Eigenschaft zurückgegeben wird, mit dem Wert Nothing vergleichen, um zu bestimmen, ob ein Dokument aktiv ist.You can compare the result returned by the ActiveDocument property with the value Nothing to determine if a document is active. Wenn der Wert der Documents. count -Eigenschaft größer als 0 (null) ist, ist mindestens ein Dokument geöffnet und aktiv.If the value of the Documents.Count property is greater than zero, at least one document is open and active.

BeispielExample

Im folgenden VBA-Makro (Microsoft Visual Basic für Applikationen) werden zwei sichere Möglichkeiten zum Abrufen eines aktiven Dokuments angezeigt (sofern eins vorhanden ist).The following Microsoft Visual Basic for Applications (VBA) macro shows two safe ways to get an active document (if one exists). In beiden Fällen wird der Name des aktiven Dokuments im Direktfenster gedruckt.In each case, it prints the name of the active document in the Immediate window. Der Code Ruft das aktive Dokument ohne Qualifizierung aus dem globalen Visio-Objekt ab, das automatisch für VBA-Code verfügbar ist, der Teil des VBA-Projekts eines Visio-Dokuments ist.The code gets the active document without qualification from the Visio global object, which is automatically available to VBA code that is part of the VBA project of a Visio document.

 
Public Sub ActiveDocument_Example() 
 
 Dim vsoDocument As Document 
 
 'First method 
 If Documents.Count > 0 Then 
 Set vsoDocument = ActiveDocument 
 Debug.Print vsoDocument.Name 
 Else 
 Debug.Print "No active document." 
 End If 
 
 'Second method 
 If Not(ActiveDocument Is Nothing) Then 
 Set vsoDocument = ActiveDocument 
 Debug.Print vsoDocument.Name 
 Else 
 Debug.Print "No active document." 
 End If 
 
End Sub

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.