Propriedade Application.ActivePage (Visio)

Retorna o objeto Page ativo. Somente leitura.

Sintaxe

expressão. ActivePage

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Page

Comentários

A propriedade ActivePage retorna um objeto Page somente quando a janela ativa exibe uma página de desenho; caso contrário, ela retorna Nothing. Para verificar se uma página está ativa, use o operador Is para comparar a propriedade ActivePage com Nothing.

É possível obter a janela ativa sem qualificação do objeto global do Microsoft Visio, que está disponível automaticamente para o código VBA que faz parte do projeto VBA de um documento do Visio. Por exemplo, você pode usar este código:

Set vsoPage = ActivePage

Se sua solução do Visual Studio incluir a referência Microsoft.Office.Interop.Visio , essa propriedade será mapeada para os seguintes tipos:

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

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como obter a página ativa sem qualificação do objeto global do Visio, que está disponível automaticamente para o código VBA que faz parte do projeto VBA de um documento do 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.