Compartilhar via

Propriedade Application.Active (Visio)

  • Artigo

Indica se a instância do Microsoft Visio representada 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.

Sintaxe

expressão. Ativo

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

Valor de retorno

Inteiro

Comentários

O aplicativo ativo na área de trabalho do Windows é diferente da instância ativa do Visio, que é retornada por uma chamada para o método OLE GetActiveObject (método GetObject, no Microsoft Visual Basic). O método GetObject recupera a instância do Visio ativada mais recentemente, o 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 em execução no momento, apenas uma é a instância ativa do Visio.

Por exemplo, suponha que você inicie uma instância do Visio e uma de outro aplicativo, como o Microsoft Excel.

  • Se a instância do Visio for o aplicativo ativo em sua área de trabalho, GetObject("visio.application") recuperará essa instância e sua propriedade Active será 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.

Se a propriedade Active do objeto Application for True, você poderá presumir que a instância correspondente do Visio será a instância ativa do Visio, a menos que a propriedade InPlace também seja True. Se uma instância do Visio for ativada para edição no local em um aplicativo contêiner, essa instância poderá não se relatar necessariamente como a instância ativa do Visio.

Exemplo

O programa Visual Basic a seguir mostra como obter a instância ativa do 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

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.