VBAでIEを開いて最大化したい。

質問

ＶＢＡでIEを開くことはできたのですがいつも同じサイズでブラウザが開きます。

Set ObjIE = CreateObject("InternetExplorer.application")
ObjIE.Visible = True

ObjIE.Navigate "https://www"

多分この後くらいに最大化するコードを書くと思うのですが
教えてください。
（ActiveWindow.WindowState = xlMaximizedのような？）

よろしくお願いします。

回答No.1

xls88 · ベストアンサー

APIでどうでしょうか。

Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "USER32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Const SW_SHOWNORMAL = 1 '元の大きさ
Private Const SW_SHOWMINIMIZED = 2 '最小化
Private Const SW_SHOWMAXIMIZED = 3 '最大化

Sub IEShowMaxiMized()
Dim ieHwnd As Long

'//IEのウィンドウハンドル取得
ieHwnd = FindWindow("IEFrame", vbNullString)
'//最大化
Call ShowWindow(ieHwnd, SW_SHOWMAXIMIZED)
End Sub

ウィンドウの最大化
http://catiauser.net/phpBB/post-7341.html

ウィンドウの操作
http://www.happy2-island.com/vbs/cafe02/capter00703.shtml

お礼

おお！なんだかよくわからないのですができました！ご回答ありがとうございます。

回答No.3

xls88

締め切り処理をされないのは、まだ問題があるのですか？
遠慮なく捕捉で質問してください。
もう一例挙げておきます。
Excelの最大化サイズをIEに適用します。
ポイント値をピクセル値に換算する必要があります。

Dim appWidth
Dim appHeight

With Application
.WindowState = xlMaximized
appWidth = .Width
appHeight = .Height
.WindowState = xlNormal
End With

'処理

With ObjIE
.Width = appWidth * 96 / 72
.Height = appHeight * 96 / 72
End With

お礼

お返事遅くなってすいません。
ご回答ありがとうございます。参考にします！

回答No.2

xls88

WSHでキー操作を送信する例
ＩＥオブジェクト（ウィンドウ最大化など）について
http://www.happy2-island.com/bbs/bbs.cgi?mode=past&no=722

お礼

ありがとうございます。参考にします。