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で質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) VBSでExcelファイル起動時、重複しても開くのを止めたい 1 2022/10/01 23:20
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) モードレスでユーザーフォームが開け(表示)ません。 4 2022/09/09 11:05
- Microsoft ASP C#からvbsを実行したい 5 2022/11/24 17:31
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
vbscriptで、ファイル選択ダイアログを前面に出したい。
その他(プログラミング・Web制作)
-
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
指定のWORKBOOKを前面表示する方法(エクセル:VBA)
Excel(エクセル)
-
-
4
VBA+VBSによる別インスタンスBookOpen時のVBSエラーに関して
Excel(エクセル)
-
5
VBスクリプト---アプリの終了について
その他(プログラミング・Web制作)
-
6
VBSでExcelのUserFormをエクスプローラの前面に出したい
Visual Basic(VBA)
-
7
VBS Bookを閉じるコード
Visual Basic(VBA)
-
8
VBscriptでのエクセルの起動について
Visual Basic(VBA)
-
9
Vbscriptで自分自身のウィンドウを最大化するには?
Microsoft ASP
-
10
vbsで選択ダイアログを表示したいのですがやり方が分かりません。教えて
その他(プログラミング・Web制作)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
vbsからのExcelマクロ呼び出しの際に保存ダイアログが表示されてしまう
その他(プログラミング・Web制作)
-
13
VBS(WSH)で開いたIEのウィンドウがアクティブにならない
Visual Basic(VBA)
-
14
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
15
VBScriptでHTMLのセレクトボックスで表示されている値に指定したい
その他(プログラミング・Web制作)
-
16
VBSで応答不要のメッセージボックスを表示したい
その他(パソコン・スマホ・電化製品)
-
17
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
18
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
19
VBS実行時にコマンドプロンプトが表示される
その他(プログラミング・Web制作)
-
20
既に開いているエクセルを閉じるには?
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アウトルックが起動しているか...
-
Windows上のプログラム。「予め...
-
VBSから別のVBS起動するとき変...
-
ASPでPMT関数が使いたい...
-
VBで実行中のEXEファイルの情報...
-
WinSCPで画像のように puttyを...
-
リムーバブルディスクのフォー...
-
MSDOS(バッチファイル)でプロセ...
-
ウィンドウを終了させたい・・・
-
別アプリの起動、終了について
-
VB6で呼び出し元の情報を取得す...
-
VBで別のプログラムを起動し他...
-
エクセル起動時別プロセスで開く
-
VBSで起動したアプリが前面表示...
-
VBAでSeleniumからChromeを起動...
-
「FindWindow」、ウィンドウハ...
-
HTMLタグの中にDLLを埋め込む事...
-
mscomm32.ocxの登録方法
-
フォームの最前面が効かない
-
ACCESS VBAで別のACCESS(mdb)を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アウトルックが起動しているか...
-
VBAでOutlookを終了させたい Ex...
-
VBSから別のVBS起動するとき変...
-
Windows上のプログラム。「予め...
-
VBSで起動したアプリが前面表示...
-
VBで実行中のEXEファイルの情報...
-
キー操作 (WSH:コピー&ペー...
-
EXCEL VBAから他アプリケーショ...
-
Process.Startで起動したアプリ...
-
VBAでSeleniumからChromeを起動...
-
64bitで作ったEXEを32bitで起動...
-
ACCESS VBAで別のACCESS(mdb)を...
-
「FindWindow」、ウィンドウハ...
-
VBAでIEが起動しているか...
-
Shellで起動したプログラムのウ...
-
VBSでExcelのUserFormをエクス...
-
Vba アプリケーションが立ち上...
-
exeファイルを実行するとすぐに...
-
フォームの最前面が効かない
-
別アプリの起動、終了について
おすすめ情報