ActivePage Property [Visio 2003 SDK Documentation]

Returns the active Page object.

objRet = object**.ActivePage**

objRet     A Page object that represents the active page.

object     Required. An expression that returns the Application object that owns the page.

Version added

2.0

Remarks

The ActivePage property returns a Page object only when the active window displays a drawing page; otherwise, it returns Nothing. To verify that a page is active, use the Is operator to compare the ActivePage property with Nothing.

It is possible to get the active window without qualification from the Microsoft Office Visio global object, which is automatically available to VBA code that is part of the VBA project of a Visio document. For example, you can use this code:

Set vsoPage = ActivePage

Example

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

Applies to | <Global> object | Application object | InvisibleApp object

See Also | ActiveDocument property | ActiveWindow property | WindowActivated event