Archive for 2月 15th, 2020

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

土曜日, 2月 15th, 2020
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

 

 

 

msgbox 改行 Chr(13) メッセージボックス

土曜日, 2月 15th, 2020

Chr(13)
vbCrLf
(キャリッジ リターンとかライン フィード)

MsgBox “1行目 & Chr(13) & 2行目”