レジストリエディタを起動させて手前に表示させたい

VBE画面から

Sub test()
Dim i As Long
i = Shell("C:\WINDOWS\regedit.exe")
End Sub

を実行するとレジストリエディタを起動できるのですがアクティブ（前画面）になりません。

Sub test()
Dim i As Long
i = Shell("C:\WINDOWS\regedit.exe")
AppActivate i
End Sub

これにしたも同じく全画面になりません。
ただ、一度起動した後に再度このコードを実行すると、
プロシージャの呼び出し、または引数が不正です。(Error 5)
と言うエラーになりますが、１回目に開いたレジストリエディタがアクティブになります。

vbaコードで起動だけではなく、手前に表示させるにはどうすればいいですか？

No.2 ベストアンサー 回答者： nicotinism 回答日時： 2013/01/25 02:43

そちらのOSは、Vista 以降なのではありませんか？

既定値のままなら UAC によってブロックされているはずです。
イミディエイトウィンドウで確認した限りですが
createobject("shell.application").shellexecute "regedit.exe"
を確かめてみてください。

VBAでレジストリエディタを開く必要があるのかな？
http://msdn.microsoft.com/ja-jp/library/cc364417 …
余計なお世話かもしれん。

この回答へのお礼

OSはwin7です。説明不足ですいません。

createobject("shell.application").shellexecute "regedit.exe"
これでも起動できました。

お礼日時：2013/01/26 18:25

No.1 回答者： okormazd 回答日時： 2013/01/25 01:40

Sub test()

Dim i As Long
i = Shell("C:\WINDOWS\regedit.exe", vbMaximizedFocus)
End Sub

とか。

この回答へのお礼

最大化にする必要はないので
i = Shell("C:\WINDOWS\regedit.exe", vbNormalFocus)
で出来ました。

お礼日時：2013/01/26 18:25