vba pdfを手前に開きたい Shell

質問

Sub Sample()
Dim myFile As String
myFile = "C: \test.pdf"
Shell """C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"" " & myFile
End Sub

ｖｂａからこれでＰＤＦファイルを開くことができるのですが
アクセスの後ろで開いてしまいます。
このコードを実行したら、開いたＰＤＦファイルを画面の手前に表示したいので
何を付け足せばいいのでしょうか？

回答No.2

watabe007 · ベストアンサー

>開いたＰＤＦファイルを画面の手前に表示したいので

・・・\Reader\AcroRd32.exe"" " & myFile
　　　↓
・・・\Reader\AcroRd32.exe"" " & myFile, vbNormalFocus

お礼

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

回答No.1

piroin654

以下のように。

Sub Sample()
Dim objShell As Object
Dim myFile As String
myFile = "C:\test.pdf"

Set objShell = CreateObject("WScript.Shell")
objShell.Run "rundll32.exe url.dll,FileProtocolHandler " & myFile & "", 1, False
Set objShell = Nothing
End Sub

なお、
objShell.Run "rundll32.exe url.dll,FileProtocolHandler " & myFile & "", 1, False
の「1」は通常の状態でウィンドウを前面に表示する
定数です。その他に関してはvbScriptに関するWEBサイト
を検索してみてください。

お礼

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