
Excelの画面(ウインドウ)の大きさをVBAで最大化したり、最小化したり、標準にしたりする記録です。
画面の大きさを変えるには「WindowState」プロパティを使います。
< スポンサーリンク >
「WindowState」構文
Windowオブジェクト.WindowState
ウインドウの状態をxlwindowstateで返す または 設定します。
【xlwindowstate】
| 名前 | 値 | 説明 |
|---|---|---|
| xlMaximized | -4137 | 最大化 |
| xlMinimized | -4140 | 最小化 |
| xlNormal | -4143 | 標準 |
画面の大きさを変更する例
最大化
ウインドウの大きさを最大化します。
Sub test()
ActiveWindow.WindowState = xlMaximized
End Sub
最小化
ウインドウの大きさを最小化します。
Sub test()
ActiveWindow.WindowState = xlMinimized
End Sub
標準
ウインドウの大きさを標準します。
Sub test()
ActiveWindow.WindowState = xlNormal
End Sub
サンプル
ウインドウの大きさが標準だったら最大化します。
Sub test()
With ActiveWindow
If .WindowState = xlNormal Then
.WindowState = xlMaximized
End If
End With
End Sub
こんな記事も書いています
