IE 「拡大レベルの変更」を調整したい

質問

IE8+offce2003です。

ブラウザの右下に「拡大レベルの変更」というのがあり
手動で100％や75％に変更できますが
ｖｂａで変更する方法はありますか？
とあるページを開く時は100％、違うページを開く時は75％、
としていので、手動ではなくｖｂａで行ないたいです。

Sub test()

Set ObjIE = CreateObject("InternetExplorer.application")
ObjIE.Visible = True
ObjIE.Navigate "http://www.yahoo.co.jp/"

Do While ObjIE.Busy = True '表示させるまで待つ
DoEvents
Loop

'サイズの調整をする処理

End Sub

コードを聞くのはご法度かもしれませんが
ご教授よろしくお願い致します。

回答No.2

ka_na_de · ベストアンサー

こんばんは。

IEの操作に詳しいわけではありませんが、
以下でどうでしょうか？

Sub test2()
　　Const OLECMDID_OPTICAL_ZOOM = 63
　　Const OLECMDEXECOPT_DODEFAULT = 0

　　Dim ObjIE As Object
　　Dim ZoomRate As Variant

　　ZoomRate = 70 '拡大率

　　Set ObjIE = CreateObject("InternetExplorer.application")
　　ObjIE.Visible = True
　　ObjIE.Navigate "http://www.yahoo.co.jp/"

　　Do While ObjIE.Busy = True '表示させるまで待つ
　　　　DoEvents
　　Loop

　　'サイズの調整をする処理
　　ObjIE.ExecWB OLECMDID_OPTICAL_ZOOM, _
　　　　　　　　　　OLECMDEXECOPT_DODEFAULT, _
　　　　　　　　　　　　CLng(ZoomRate)

　　Set ObjIE = Nothing
End Sub

お礼

うまくできました！ありがとうございます。

回答No.3

ka_na_de

＃２です。

追加情報です。
ご参考までに。

' 「ツール」→「参照設定」で「Microsoft Internet Controls」に
' チェックを入れると下記２行は不要です。
' Const OLECMDID_OPTICAL_ZOOM = 63
' Const OLECMDEXECOPT_DODEFAULT = 0

参考URL：

http://www.ken3.org/cgi-bin/group/vba_ie_object.asp

お礼

ご丁寧にありがとうございます。参考になりました。

回答No.1

xls88

↓こちらが参考になります。
IEの表示サイズ変更
http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200902/09020023.txt

お礼

ありがとうございます。
ObjIE.Document.Body.runtimeStyle.Zoom = "80%"
でできました。