VBAのIE制御

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

目次

• はじめに
• 利用するメソッド・関数について
  • Arrangeメソッド
  • MsgBox関数
• ワークブックを整列するサンプルコード
  • 実行結果
  • 解説
• まとめ
• エクセルVBAのウィンドウ操作一覧

はじめに

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

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

• Arrangeメソッド
• MsgBox関数

Arrangeメソッドとは

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

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でワークブックを表示・非表示にする方法について解説します。

エクセルVBAのウィンドウ操作一覧

• Excelウィンドウの表示サイズを設定する
• Excelウィンドウを全画面表示にする
• Excelウィンドウの表示位置を設定する
• ワークブックの表示サイズを指定する
• ブックウィンドウ表示サイズの最大値を取得する
• ワークブックの表示位置を指定する
• ワークブックを整列する
• ワークブックを表示・非表示にする
• ワークブックを拡大・縮小表示する
• ウィンドウを分割する
• ウィンドウ枠を固定する