ＩＥのブラウザを、任意のサイズで指定するには？

質問

アクセスです。

Private Sub サンプル()

Dim IE As Object

Set IE = CreateObject("internetExplorer.application")
IE.Visible = True
IE.navigate ("D:\サンプル.txt")

Set IE = Nothing

End Sub

で、ＩＥは開くのですが、ブラウザのサイズがバラバラです。
縦１０ｃｍ、横１０ｃｍのようにサイズの指定はできますか？
（単位はｃｍでなくても大丈夫です＾＾）

http://okwave.jp/qa/q5503310.html
を見ると、ＡＰＩを使うのかなー
と思ったのですが、ＡＰＩの作り方はわからないのでご教授お願いします。

回答No.1

toshi_2010 · ベストアンサー

こんな感じでどうでしょう

Option Explicit

Dim objIE
Dim intWidth, intHeight
Dim intX, intY

intWidth = 320 '　幅
intHeight = 240 '　高さ
intX = 200 '　位置Ｘ座標
intY = 300 '　位置Ｙ座標

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Width = intWidth '　ウィンドウ幅を変更
objIE.Height = intHeight '　ウィンドウ高さを変更

objIE.Left = intX '　表示位置Ｘ座標を変更
objIE.Top = intY '　位置位置Ｘ座標を変更

objIE.Statusbar = False '　ステータスバーを非表示
objIE.AddressBar = False '　ツールバーを非表示

objIE.Visible = True '　画面を表示

お礼

おお！
これです！すごいです！
しかも表示させる座標まで！
しかもアドレスバーなどの表示まで！
求めてた以上のご回答を頂けて感激です。

ありがとうございました。