Propiedad InvisibleApp.ActivePage (Visio)

Devuelve el objeto Page activo. Solo lectura.

Sintaxis

expresión. ActivePage

Expresión Variable que representa un objeto InvisibleApp .

Valor devuelto

Page

Comentarios

La propiedad ActivePage devuelve un objeto Page sólo cuando la ventana activa muestra una página de dibujo; de lo contrario, devuelve Nothing. Para comprobar si una página está activa, use el operador Is con objeto de comparar la propiedad ActivePage con Nothing.

Es posible obtener la ventana activa sin calificación del objeto global de Microsoft Visio, que está disponible automáticamente para el código VBA que forma parte del proyecto VBA de un documento de Visio. Por ejemplo, puede usar este código:

Set vsoPage = ActivePage

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo obtener la página activa sin calificación del objeto global de Visio, que está disponible automáticamente para el código VBA que forma parte del proyecto VBA de un documento de 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.