スクリプトからWin32APIをCALLして、ウィンドウを最前面に表示する。
もし、Excelがあれば、スクリプトからWin32APIをCALLすることができます。
以下は、ウィンドウタイトル「電卓」を最前面に表示します。
'Const HWND_TOPMOST = -1
'Const SWP_NOSIZE = 1
'Const SWP_NOMOVE = 2
Set Application=CreateObject("Excel.Application")
hwnd=Application.ExecuteExcel4Macro("CALL(""user32"",""FindWindowA"",""JJC"",0,""電卓"")")
RC=Application.ExecuteExcel4Macro("CALL(""user32"",""SetWindowPos"",""JJJJJJJJ""," & hwnd & ",-1,0,0,0,0,3)")
If RC=0 Then MsgBox "ウィンドウが見つかりません。"