Freigeben über


Application.ActivePage-Eigenschaft (Visio)

Gibt das aktive Page-Objekt zurück. Schreibgeschützt.

Syntax

Ausdruck. ActivePage

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Seite

Hinweise

Die ActivePage-Eigenschaft gibt nur dann ein Page-Objekt zurück, wenn im aktiven Fenster ein Zeichenblatt angezeigt wird. Andernfalls wird Nothing zurückgegeben. Um zu überprüfen, ob eine Seite aktiv ist, verwenden Sie den Is-Operator , um die ActivePage-Eigenschaft mit Nothing zu vergleichen.

Es ist möglich, das aktive Fenster ohne Qualifikation aus dem globalen Microsoft Visio-Objekt abzurufen, das automatisch für VBA-Code verfügbar ist, der Teil des VBA-Projekts eines Visio-Dokuments ist. Sie können diesen Code z. B. folgendermaßen verwenden:

Set vsoPage = ActivePage

Wenn Ihre Visual Studio-Lösung die Referenz Microsoft.Office.Interop.Visio enthält, wird diese Eigenschaft den folgenden Typen zugeordnet:

  • Microsoft.Office.Interop.Visio.IVApplication.ActivePage

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Sie die aktive Seite ohne Qualifikation aus dem globalen Visio-Objekt abrufen, das automatisch für VBA-Code verfügbar ist, der Teil des VBA-Projekts eines Visio-Dokuments ist.

 
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 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.