Propriété Application.Active (Visio)

  • Article

Indique si l’instance de Microsoft Visio représentée par l’objet Application est l’application active sur le bureau Microsoft Windows (l’application dont la barre de titre est mise en surbrillance). En lecture seule.

Syntaxe

expression. Active

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Entier

Remarques

L’application active sur le bureau de Windows est différente de l’instance active de Visio, qui est renvoyée par un appel à la méthode OLE GetActiveObject (GetObject dans Microsoft Visual Basic). La méthode GetObject récupère la dernière instance de Visio activée, qui ne correspond pas forcément à l’application actuellement active sur le bureau. Une seule instance de Visio est active parmi toutes celles en cours d’exécution.

Supposez, par exemple, que vous démarriez une instance de Viso et une autre d'une autre application telle que Microsoft Excel.

  • Si l’instance de Visio est l’application active sur votre bureau, GetObject(« visio.application ») récupère cette instance et sa propriété Active a la valeur True.

  • Si vous activez l’instance de Microsoft Excel, GetObject(« visio.application ») récupère la même instance de Visio, mais sa propriété Active a la valeur False.

Si la valeur True est associée à la propriété Active d'un objet Application, vous pouvez en déduire que l'instance de Visio correspondante est l'instance active, à moins que la valeur True ne soit également associée à la propriété InPlace. Si une instance de Visio est activée en vue de modifications dans une application conteneur, elle n'apparaît pas nécessairement comme l'instance active de Visio.

Exemple

Le programme Visual Basic suivant montre comment obtenir l’instance active 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.