Windows コレクション内のウィンドウを配置します。
構文
式。
Arrange( _nArrangeFlags_ )
表現Windows オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| nArrangeFlags | 省略可能 | バリアント型 | ウィンドウの整列方法を指定するフラグです。既定では、ウィンドウは垂直方向に整列されています。 |
戻り値
なし
解説
Arrange メソッドを使用すると、[表示] タブの [ウィンドウ] で [ウィンドウの整列] をクリックした場合と同じ結果が得られます。アクティブなウィンドウは、アクティブのままになります。
Visio では、ウィンドウを上から下に、次に左から右に見なします。 ウィンドウを事前に配列することで、水平方向にタイリングするときに最上位 (または垂直方向にタイリングする場合は左端) になるウィンドウに影響を与えることができます。
nArrangeFlags には、Visio タイプ ライブラリで定義されている次の定数を指定できます。 これらの定数は、 VisWindowArrange の Visio タイプ ライブラリでも宣言されます。
| 定数 | 値 |
|---|---|
| VisArrangeTileVertical | 1 |
| VisArrangeTileHorizontal | 2 |
| VisArrangeCascade | 3 |
例
次のマクロは、ウィンドウをアクティブにして整列する方法を示します。
Public Sub Arrange_Example()
Dim vsoDocument As Visio.Document
Dim vsoWindow As Visio.Window
Dim vsoWindow2 As Visio.Window
'Create two new windows by adding documents.
Set vsoDocument = Documents.Add("")
Set vsoWindow = ActiveWindow
Set vsoDocument = Documents.Add("")
'Use the Arrange method to tile the windows
'(currently the last opened window is active).
Windows.Arrange
'Use the Activate method to make the other
'window the active window.
vsoWindow.Activate
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。