ブックの整列

前回は、WindowsコレクションのTop・Leftプロパティを利用して、ワークブックの表示位置を設定する方法について解説しました。複数のワークブックの位置を個別に設定することもできますので、ブックウィンドウのサイズから計算して表示させるようにしましょう。また、事例で横並びを挙げましたが、ワークブックの整列を簡単に設定することもできます。今回は、ワークブックの整列について解説します。

はじめに

こちらでは、Arrangeメソッドを利用してワークブックの整列を設定する方法について解説します。

利用するメソッド・関数について

今回利用するメソッド・関数は以下になります。

Arrangeメソッド
MsgBox関数

Arrangeメソッドとは

WindowsオブジェクトのArrangeメソッドはワークブックの並び替え(整列)を設定します。

Windows.Arrange 引数ArrangeStyle

MsgBox関数とは

MsgBox関数はダイアログボックスにメッセージとボタンを表示し、どのボタンが押されたかを示す整数型の数値を返します。

MsgBox "表示させる文字列"

MsgBox関数

ワークブックを整列するサンプルコード

今回のVBAコードはワークブックを整列するマクロになります。


Sub sample()

    Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled
    
    MsgBox "並べて(既定値)表示しています。"

    Windows.Arrange ArrangeStyle:=xlArrangeStyleCascade
    
    MsgBox "重ねて表示しています。"
    
    Windows.Arrange ArrangeStyle:=xlArrangeStyleHorizontal
    
    MsgBox "上下に並べて表示しています。"
    
    Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical
    
    MsgBox "左右に並べて表示しています。"
    
End Sub

実行結果

xlArrangeStyleTiled（並べて(既定値)表示）

xlArrangeStyleCascade（重ねて表示）

xlArrangeStyleHorizontal（上下に並べて表示）

xlArrangeStyleVertical（左右に並べて表示）

解説


Sub sample()

    Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled
    
    MsgBox "並べて(既定値)表示しています。"

sampleプロシージャのSubステートメントは引数の設定なしです。WindowsオブジェクトのArrangeメソッドの引数ArrangeStyleにxlArrangeStyleTiledを設定しています。こちらは開かれているワークブックがすべて画面に表示されるようにサイズを縮小して並べます。
MsgBox関数は、処理を一旦停止するために設けていますので、ワークブックが並べられているのを確認してから次の処理へ移動しましょう。


    Windows.Arrange ArrangeStyle:=xlArrangeStyleCascade
    
    MsgBox "重ねて表示しています。"

こちらでは、引数ArrangeStyleにxlArrangeStyleCascadeを設定しています。こちらは開いているワークブックのサイズが調整され、すべてのタイトルバーが見えるように少しずつずらして重ねて表示されます。
重ねて表示されるのを確認ください。


    Windows.Arrange ArrangeStyle:=xlArrangeStyleHorizontal
    
    MsgBox "上下に並べて表示しています。"

こちらでは、引数ArrangeStyleにxlArrangeStyleHorizontalを設定しています。こちらはワークブックを同じサイズに縮小して、画面の上から下へ縦積みにします。
上下に並べて表示されるのを確認ください。


    Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical
    
    MsgBox "左右に並べて表示しています。"

End Sub

こちらでは、引数ArrangeStyleにxlArrangeStyleVerticalを設定しています。こちらはワークブックを同じサイズに縮小して、画面の左から右へ横並びにします。
そして、最後はEndステートメントを利用してsampleプロシージャを終了させます。

まとめ

今回は、WindowsオブジェクトのArrangeメソッドを利用してワークブックの並び替え(整列)について解説しました。個別にサイズ指定もできますが、Arrangeメソッドを利用することで簡単に設定できることも覚えておきましょう。次回は、エクセルVBAでワークブックを表示・非表示にする方法について解説します。