VBSで起動したアプリが前面表示しない

Powerpointをコンテキストメニューに「読み取り専用」を追加するために以下のVBscriptを起動すると前面表示されません。
どうしたら前面表示されますでしょうか？

起動コマンド
wscript.exe "C:\Program Files\Microsoft Office\Office14\OpenPptAsReadOnly.vbs" "%1"

以下がVBscript（OpenPptAsReadOnly.vbs）です。

Dim strPPTFileName
Dim objPPTApp

'引数のチェック
If WScript.Arguments.Count <> 1 Then WScript.Quit

'ファイル名取得
strPPTFileName = WScript.Arguments(0)

'起動
Set objPPTApp = WScript.CreateObject("Powerpoint.Application")
objPPTApp.Visible = True

'読み取り専用で開く
Call objPPTApp.Presentations.Open(strPPTFileName,True)

'終了処理
Set objPPTApp = Nothing
WScript.Quit

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2015/01/22 15:59

こんにちは。

Set objWshShell = WScript.CreateObject("WScript.Shell")
を使って、
objWshShell.AppActivate "Microsoft PowerPoint", True

で、いかがでしょうか。

この回答へのお礼

できました。ありがとうございました。

下のコードでも前面表示できるようです。
こちらなら他のアプリケーションでもいけるかもしれません。

Set objWSH = CreateObject("WScript.Shell")
objWSH.AppActivate objPPTApp.Caption

お礼日時：2015/01/23 10:09