読者です 読者をやめる 読者になる 読者になる

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

ネタ元