KB-68628: Trazendo um programa em execução para o primeiro plano.

Sim. Para isto, utilize o script abaixo:

Sub CommandButton1_Click()
‘Utilizando o Método do Viewer: ExecuteExternalApp
Set Service = GetObject(“winmgmts:”)

strProgramPath = “C:\Windows\system32\calc.exe”

For Each Process in Service.InstancesOf(“Win32_Process”)
If Process.Name = “calc.exe” Then
running = True
End If
Next

If running Then
 MsgBox “Calculadora já está sendo executada!”

Set WshShell = CreateObject(“WScript.Shell”)
WshShell.AppActivate “calculadora”
newkeys = “% R”    ‘Maximiza objeto ativo
 WshShell.SendKeys newkeys
Else
 Application.ExecuteExternalApp strProgramPath, “”, “”, 1    ‘Pode ser substituído por objShell.Run strProgramPath
End If

End Sub

NOTA: É também possível realizar este comando com o objeto Shell (veja a aplicação em anexo). 

Anexos:

OpenProg.zip