ウィンドウ 位置 サイズ 状態 Application.Top Left Width Height WidowsState

Sub ウィンドウ位置サイズ状態()
  
    With Application
    
        MsgBox "Top:" & .Top & Chr(13) & _
            " Left:" & .Left & Chr(13) & _
            " Width:" & .Width & Chr(13) & _
            " Height:" & .Height & Chr(13) & _
            " WindowState:" & .WindowState
    
    End With

End Sub

参考:ウィンドウ位置

 

参考:ウィンドウサイズ

 

WindowState:ウィンドウの状態

※最大化/最小化の状態で位置サイズを設定を設定するとエラーになるので、xlNormalを設定してから位置サイズを変更

定数     値     内容
xlMaximized     -4137     最大化
xlMinimized     -4140     最小化
xlNormal     -4143     標準

参考:WindowState