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

Gibt das aktive Page -Objekt zurück.Returns the active Page object. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. ActivePageexpression.ActivePage

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

RückgabewertReturn value

SeitePage

BemerkungenRemarks

Die ActivePage -Eigenschaft gibt nur dann ein Page -Objekt zurück, wenn das aktive Fenster ein Zeichenblatt anzeigt. Andernfalls wird Nothingzurückgegeben.The ActivePage property returns a Page object only when the active window displays a drawing page; otherwise, it returns Nothing. Um zu überprüfen, ob eine Seite aktiv ist, verwenden Sie den is -Operator, um die ActivePage -Eigenschaft mit Nothingzu vergleichen.To verify that a page is active, use the Is operator to compare the ActivePage property with Nothing.

Das aktive Fenster kann ohne Qualifizierung aus dem Microsoft Visio globalen Objekt abgerufen werden, das automatisch für VBA-Code verfügbar ist, der Teil des VBA-Projekts eines Visio-Dokuments ist.It is possible to get the active window without qualification from the Microsoft Visio global object, which is automatically available to VBA code that is part of the VBA project of a Visio document. Sie können diesen Code z. B. folgendermaßen verwenden:For example, you can use this code:

Set vsoPage = ActivePage

BeispielExample

Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die aktive Seite ohne Qualifizierung aus dem globalen Visio-Objekt abgerufen wird, das automatisch für VBA-Code verfügbar ist, der Teil des VBA-Projekts eines Visio-Dokuments ist.This Microsoft Visual Basic for Applications (VBA) macro shows how to get the active page 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 ActivePage_Example() 
 
 Dim vsoPage As Page 
 
 'Find out if a page exists, and if it does, get the page. 
 If Not(ActivePage Is Nothing) Then 
 Set vsoPage = ActivePage 
 Debug.Print vsoPage.Name 
 Else 
 Debug.Print "No active page." 
 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.