【VBA+Chromedriver】Chromeウインドウ操作

’Chromeを動かし始めた時に邪魔なので画面サイズを半分にして右端に寄せる

Private Declare Function GetSystemMetrics _
Lib “user32” _
(ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN As Long = 0
Private Const SM_CYSCREEN As Long = 1

    myX = GetSystemMetrics(SM_CXSCREEN) '画面の幅を取得
    myY = GetSystemMetrics(SM_CYSCREEN) '画面の高さを取得
    myX = myX / 2   '画面の幅を半分
    myY = myY - 50
    Driver.Window.SetPosition myX, 20  '画面の幅を半分の位置(右側にウインドウを移動)
    Driver.Window.SetSize myX, myY  'ウインドウの高さは-50にして幅は半分

コメントを残す

メールアドレスが公開されることはありません。