Propiedad InvisibleApp.Active (Visio)

Indica si la instancia de Microsoft Visio representada por el objeto Application es la aplicación activa en el escritorio de Microsoft Windows, la aplicación que tiene la barra de título resaltada. Solo lectura.

Sintaxis

expresión. Activo

Expresión Variable que representa un objeto InvisibleApp .

Valor devuelto

Entero

Comentarios

La aplicación activa del escritorio de Windows es distinta de la instancia de Visio activa, que se obtiene mediante una llamada al método GetActiveObject de OLE (método GetObject en Microsoft Visual Basic). El método GetObject recupera la última instancia de Visio que se ha activado, que puede ser o no la aplicación activa del escritorio en ese momento. De todas las instancias de Visio que se ejecutan actualmente, solo una es la instancia activa.

Por ejemplo, supongamos que inicia una instancia de Visio y una de otra aplicación, como Microsoft Excel.

• Si la instancia de Visio es la aplicación activa en el escritorio, GetObject("visio.application") recupera esa instancia y su propiedad Active es True.

• Si activa la instancia de Microsoft Excel, GetObject("visio.application") recupera la misma instancia de Visio, pero su propiedad Active es False.

Si la propiedad Active de un objeto Application es True, puede dar por hecho que la instancia correspondiente de Visio es la instancia activa de Visio, a menos que la propiedad InPlace sea también True. Si la instancia de Visio se activa para la modificación local en una aplicación contenedora, dicha instancia no se presenta necesariamente como la instancia activa de Visio.

Ejemplo:

El siguiente programa de Visual Basic muestra cómo obtener la instancia activa de Visio.

 
Public Sub Active_Example() 
 
 Dim vsoApplication1 As Visio.Application 
 Dim vsoApplication2 As Visio.Application 
 
 'Create two new instances of Visio. 
 Set vsoApplication1 = CreateObject("visio.application") 
 Set vsoApplication2 = CreateObject("visio.application") 
 
 'Use the Active property to determine whether 
 'the instance of Visio is active. 'Result = False. Prints "0" in the Immediate window 
 Debug.Print vsoApplication1.Active 
 
 'Result = True. Prints "-1" in the Immediate window. 
 Debug.Print vsoApplication2.Active 
 
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.