画像を開いてアクティブにしたい

質問

Sub マクロ1()
Dim MyFileFullName As String
MyFileFullName = "C:\Users\名刺.jpg"
Shell "Rundll32.exe" & " Shimgvw.dll,ImageView_Fullscreen" & " " & MyFileFullName
End Sub

を実行すると、アプリケーションの裏側に開いてしまうのですが、
表側にする方法はありますか？

Sub マクロ1()
Dim MyFileFullName As String
Dim i As Long
MyFileFullName = "C:\Users\名刺.jpg"
i =Shell "Rundll32.exe" & " Shimgvw.dll,ImageView_Fullscreen" & " " & MyFileFullName
AppActivate i
End Sub

こうしようとすると、構文エラーになります。

回答No.1

xls88 · ベストアンサー

Shell関数の第2引数を記述すればどうなるでしょうか。
vbNormalFocus 1 フォーカスを持ち、元のサイズと位置に復元されるウィンドウ
vbMaximizedFocus 3 フォーカスを持ち、最大化表示されるウィンドウ

Shell "Rundll32.exe" & " Shimgvw.dll,ImageView_Fullscreen" & " " & MyFileFullName, vbNormalFocus

お礼

ご回答ありがとうございます。