Shell関数でIEを最大化して開きたい。

質問

Cmd = "EXPLORER.EXE" & " " & "http://www.・・・・・"
RunCmd = Shell(Cmd, 3)

これを実行してもまったく画面が最大化しません。
Shell関数の引数をEXPLORER.EXEだけにすると最大化しました。
なぜでしょうか？

回答No.1

noname#16749 · ベストアンサー

explorer.exeは引数の「http://www....」を見るとIEを起動します。
ですが、explorer.exeはIEに「最大化命令」を伝えません。
そのため、通常サイズのIEが起動されます。

ですので、マクロで最大化してIEを開きたいならば、以下のように直にIEを呼ぶ必要があります。

--------------------------------------

Sub test()

Cmd = "C:\Program Files\Internet Explorer\IEXPLORE.EXE" & " " & "http://www.google.co.jp"
RunCmd = Shell(Cmd, 3)

End Sub

--------------------------------------

お礼

最大化されない理由がよくわかりました。ありがとうございました。

回答No.2

imogasi

Shellを使わないで、
VBEで標準モジュールでツールー参照設定でMicrosoft Internet Controls に設定し
Private Sub tst03()

Dim IE As SHDocVw.InternetExplorer 'IEのオブジェクト
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True '可視をON
IE.Navigate ("http://www.ipat.jra.go.jp/")
IE.Width = 1300
IE.Height = 1000
Set IE = Nothing
End Sub
を貼り付けて実行してみてください。
勉強すると、自由度と奥が深そう。

お礼

こんな方法もあるのですね。もっと勉強してみたいです。
ありがとうございました。