Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade Application.Active (Visio)Application.Active Property (Visio)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Indica se a instância do Microsoft Visio representado pelo objeto Application é o aplicativo ativo na área de trabalho do Microsoft Windows — o aplicativo que tem a barra de título realçada. Somente leitura.Indicates whether the instance of Microsoft Visio represented by the Application object is the active application on the Microsoft Windows desktop—the application that has the highlighted title bar. Read-only.

SintaxeSyntax

expressão . Ativoexpression . Active

expressão Uma variável que representa um objeto Application .expression A variable that represents an Application object.

Valor retornadoReturn Value

InteiroInteger

ComentáriosRemarks

O aplicativo ativo na área de trabalho do Windows é diferente da instância ativa do Visio, que é retornada por uma chamada ao método OLE GetActiveObject (método GetObject no Microsoft Visual Basic). O método GetObject recupera a instância do Visio que foi ativada mais recentemente, que pode ou não ser o aplicativo ativo na área de trabalho nesse momento. De todas as instâncias do Visio que estão sendo executados, o único é a instância ativa do Visio.The active application on the Windows desktop is distinct from the active Visio instance, which is returned by a call to the OLE GetActiveObject method ( GetObject method in Microsoft Visual Basic). The GetObject method retrieves the instance of Visio that was most recently activated, which may or may not be the active application on the desktop at that moment. Of all instances of Visio that are currently running, only one is the active Visio instance.

Por exemplo, suponha que você inicie uma instância do Visio e uma de outro aplicativo, como o Microsoft Excel.For example, suppose you start one instance of Visio and one of another application, such as Microsoft Excel.

  • Se a instância do Visio for o aplicativo ativo na sua área de trabalho, GetObject (, "Visio. Application") recuperará essa instância e sua propriedade Active será True .If the instance of Visio is the active application on your desktop, GetObject (, "visio.application") retrieves that instance, and its Active property is True .

  • Se você ativar a instância do Microsoft Excel, GetObject (, "Visio. Application") recuperará a mesma instância do Visio, mas sua propriedade Active será False .If you activate the instance of Microsoft Excel, GetObject (, "visio.application") retrieves the same instance of Visio, but its Active property is False .

Se a propriedade de um objeto Applicationativo for True , você pode assumir que a instância correspondente do Visio é a instância ativa do Visio, a menos que a propriedade InPlace também é verdadeiro . Se uma instância do Visio está ativada para edição no local em um aplicativo contêiner, essa instância pode não necessariamente se declarar como a instância ativa do Visio.If an Application object's Active property is True , you can assume that the corresponding instance of Visio is the active instance of Visio unless the InPlace property is also True . If an instance of Visio is activated for in-place editing in a container application, that instance may not necessarily report itself as the active instance of Visio.

ExemploExample

O programa de Visual Basic a seguir mostra como obter a instância ativa do Visio.The following Visual Basic program shows how to get the active instance of 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
© 2018 Microsoft