Свойство Application.ActivePage (Visio)

Возвращает активный объект Page . Только для чтения.

Синтаксис

expression. ActivePage

выражение: переменная, представляющая объект Application.

Возвращаемое значение

Page

Замечания

Свойство ActivePage возвращает объект Page только в том случае, если в активном окне отображается страница документа; в противном случае возвращает значение Nothing. Чтобы убедиться, что страница активна, используйте оператор Is для сравнения свойства ActivePage с Nothing.

Активное окно можно получить без квалификации из глобального объекта Microsoft Visio, который автоматически доступен для кода VBA, являющегося частью проекта VBA документа Visio. Например, можно использовать следующий код:

Set vsoPage = ActivePage

Если решение Visual Studio содержит ссылку microsoft.Office.Interop.Visio , это свойство сопоставляется со следующими типами:

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

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) показывает, как получить активную страницу без квалификации из глобального объекта Visio, который автоматически доступен для кода VBA, который является частью проекта VBA документа Visio.

 
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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.