Instrução AppActivate
Ativa uma janela do aplicativo.
Sintaxe
AppActivatetitle, [ wait ]
A sintaxe da instrução AppActivate tem os seguintes argumentos nomeados:
| Parte | Descrição |
|---|---|
| título | Obrigatório. Expressão de cadeia de caracteres especificando o título na barra de título da janela de aplicativo que você deseja ativar. A ID da tarefa retornada pela função Shell pode ser usada em lugar de title para ativar um aplicativo. |
| wait | Opcional. Valor Booliano que especifica se a chamada ao aplicativo tem o foco antes da ativação de outro. Se for False (padrão), o aplicativo especificado será imediatamente ativado, mesmo se o aplicativo de chamada não tiver o foco. Se for True, o aplicativo de chamada aguardará até que tenha o foco, e ativará o aplicativo especificado. |
Comentários
A instrução AppActivate muda o foco para o aplicativo nomeado ou janela, mas não afeta se está minimizado ou maximizado. O foco se move da janela de aplicativo ativada quando o usuário executa alguma ação para alterar o foco ou para fechar a janela. Use a função Shell para iniciar um aplicativo e definir o estilo da janela.
Ao determinar o aplicativo a ser ativado, título é comparado com a cadeia de caracteres de título de cada aplicativo em execução. Se não houver uma correspondência exata, qualquer aplicativo cuja cadeia de caracteres de título comece com título será ativado. Se houver mais de uma instância do aplicativo nomeado por título, uma instância será ativada aleatoriamente.
Exemplo
Este exemplo ilustra as várias utilizações da instrução AppActivate para ativar uma janela do aplicativo. As instruções Shell pressupõem que os aplicativos estão nos caminhos especificados. No Macintosh, o nome de unidade padrão é "HD", e partes do nome do caminho são separadas por dois pontos, em vez de barras invertidas.
Dim MyAppID, ReturnValue
AppActivate "Microsoft Word" ' Activate Microsoft
' Word.
' AppActivate can also use the return value of the Shell function.
MyAppID = Shell("C:\WORD\WINWORD.EXE", 1) ' Run Microsoft Word.
AppActivate MyAppID ' Activate Microsoft
' Word.
' You can also use the return value of the Shell function.
ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1) ' Run Microsoft Excel.
AppActivate ReturnValue ' Activate Microsoft
' Excel.
Confira também
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.