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

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

Синтаксис

выражение. ActivePage

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

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

Страница

Примечания

Свойство 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 и обратная связь.