IEの拡大率指定

ExcelVBA

.ExecWBメソッドで指定。

.ExecWB メソッド では いろいろなコマンドを発行できるみたい。

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

ネタ元