![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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ベストアンサー
- 回答日時:
こんにちは。
Set objWshShell = WScript.CreateObject("WScript.Shell")
を使って、
objWshShell.AppActivate "Microsoft PowerPoint", True
で、いかがでしょうか。
できました。ありがとうございました。
下のコードでも前面表示できるようです。
こちらなら他のアプリケーションでもいけるかもしれません。
Set objWSH = CreateObject("WScript.Shell")
objWSH.AppActivate objPPTApp.Caption
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
これ何て呼びますか Part2
あなたのお住いの地域で、これ、何て呼びますか?
-
vbscriptで、ファイル選択ダイアログを前面に出したい。
その他(プログラミング・Web制作)
-
VBSでExcelのUserFormをエクスプローラの前面に出したい
Visual Basic(VBA)
-
VBscriptでのエクセルの起動について
Visual Basic(VBA)
-
-
4
指定のWORKBOOKを前面表示する方法(エクセル:VBA)
Excel(エクセル)
-
5
VBA+VBSによる別インスタンスBookOpen時のVBSエラーに関して
Excel(エクセル)
-
6
VBSでのSendKeysでの画面の最小化
その他(プログラミング・Web制作)
-
7
VBS(WSH)で開いたIEのウィンドウがアクティブにならない
Visual Basic(VBA)
-
8
vbsからのExcelマクロ呼び出しの際に保存ダイアログが表示されてしまう
その他(プログラミング・Web制作)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
Vba Userformを前面に出すについて
Access(アクセス)
-
11
AppActivateについて
Visual Basic(VBA)
-
12
Vbscriptで自分自身のウィンドウを最大化するには?
Microsoft ASP
-
13
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
14
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
15
VBSで応答不要のメッセージボックスを表示したい
その他(パソコン・スマホ・電化製品)
-
16
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
17
vbsで選択ダイアログを表示したいのですがやり方が分かりません。教えて
その他(プログラミング・Web制作)
-
18
VBS Bookを閉じるコード
Visual Basic(VBA)
-
19
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
20
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アウトルックが起動しているか...
-
VBSで起動したアプリが前面表示...
-
EXCEL VBAから他アプリケーショ...
-
エクセル起動時別プロセスで開く
-
ミリ秒を○時間○分○秒にしたい
-
exeファイルを実行するとすぐに...
-
VBで別のプログラムを起動し他...
-
Windows上のプログラム。「予め...
-
フォームの最前面が効かない
-
VBAでOutlookを終了させたい Ex...
-
VBで実行中のEXEファイルの情報...
-
ダブルコーテーションで3度も...
-
Process.Startで起動したアプリ...
-
VBSでExcelのUserFormをエクス...
-
WinSCPで画像のように puttyを...
-
分かる人は簡単なのだろうが、v...
-
VBS 入力可能状態を判別できま...
-
二重起動禁止にする理由とは
-
vba 時間の引き算 例えば 15:00...
-
印刷ダイアログを表示させない方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アウトルックが起動しているか...
-
VBAでOutlookを終了させたい Ex...
-
VBSで起動したアプリが前面表示...
-
Windows上のプログラム。「予め...
-
Process.Startで起動したアプリ...
-
VBで実行中のEXEファイルの情報...
-
VBSから別のVBS起動するとき変...
-
EXCEL VBAから他アプリケーショ...
-
exeファイルを実行するとすぐに...
-
VBAでSeleniumからChromeを起動...
-
VBSでExcelのUserFormをエクス...
-
フォームの最前面が効かない
-
AppActivateについて
-
タスクスケジューラでPerlが動...
-
ウィンドウを終了させたい・・・
-
C# 他のアプリケーションを優先...
-
MSペイントを画像ファイル名を...
-
64bitで作ったEXEを32bitで起動...
-
分かる人は簡単なのだろうが、v...
-
VB6で呼び出し元の情報を取得す...
おすすめ情報