IEのウィンドウをフルスクリーン状態（最大化）にするサンプルコードです。標準モジュールに以下のコードを追加し、GetYahooTitleSubプロシージャを実行します。
FullscreenSubプロシージャを実行すると、https://vba-code.netに接続して、IEのウィンドウをフルスクリーン状態にします。そして数秒後にフルスクリーン状態を解除し、IEを終了します。
サンプルコード
【動作確認日】2014年5月10日
【動作確認環境】Windows 7・Excel 2010・Internet Explorer 11
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
'IEの画面をフルスクリーン状態にするサブプロシージャ Sub Fullscreen() Dim objIE As Object 'IE起動 Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'https://vba-code.netに接続 objIE.navigate "https://vba-code.net/" 'IEを待機 Call IEWait(objIE) '3秒停止 Call WaitFor(3) '画面をフルスクリーン状態にする objIE.FullScreen = True '3秒停止 Call WaitFor(3) 'フルスクリーン状態を解除 objIE.FullScreen = False '3秒停止 Call WaitFor(3) 'IE終了 objIE.Quit Set objIE = Nothing End Sub 'IEを待機する関数 Function IEWait(ByRef objIE As Object) Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop End Function '指定した秒だけ停止する関数 Function WaitFor(ByVal second As Integer) Dim futureTime As Date futureTime = DateAdd("s", second, Now) While Now < futureTime DoEvents Wend End Function |
解説
IEウィンドウのフルスクリーン状態を制御するには、IEオブジェクトのFullScreenプロパティを使用します。Trueでフルスクリーン状態に変更、Falseでフルスクリーン状態を解除します。