[VBA]Excelのウィンドウを瞬時に整列させるマクロ

[0]はじめに

Zitanです。
複数のExcelファイルを同時に操作するとき、ディスプレイ画面上に左右にきれいに整列させたい時はありませんか？
今回は、複数のExcelウインドウを瞬時に整列させるコードをご紹介します。

[1]これを使う

筆者がよく使うのはこちらです。

左右に整列させる

Sub 左右に整列()
Application.Windows.Arrange xlArrangeStyleVertical
End Sub

その他の整列方法

引数	結果
xlArrangeStyleVertical	左右に並べて表示
xlArrangeStyleHorizontal	上下に並べて表示
xlArrangeStyleTiled	並べて表示(デフォルト)
xlArrangeStyleCascade	重ねて表示

[2]結果はこんな感じです

Excelのウインドウを適当に４つ開いておいて、マクロを実行しました。

[3]さいごに

いかがでしょうか。
いくつ起動していてもきれいにピシッと整列するのが癖になりそうです。笑