Selection.Distribute メソッド (Visio)

図面ページで 3 つ以上の図形を規則的な間隔になるように揃えます。 選択の順序は関係しません。

構文

expression. Distribute( _Distribute_ , _GlueToGuide_ )

式Selection オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Distribute	必須	VisDistributeTypes	図形を揃える方法を指定します。 指定可能な値については、「備考」を参照してください。
GlueToGuide	省略可能	Boolean	True の場合、ガイドを作成し選択した図形に接着します。 Falseの場合、ガイドを作成し、選択した図形を接着することはありません。 既定値は False です。

戻り値

なし

解説

分散の次の値は、Visio タイプ ライブラリの VisDistributeTypes で宣言されています。

定数	値	説明
visDistHorzCenter	2	底辺の間隔が均一になるように図形を水平に配置します。
visDistHorzLeft	1	左辺の間隔が均一になるように図形を上下に並べて均等配置します。
visDistHorzRight	3	右辺の間隔が均一になるように図形を上下に並べて均等配置します。
visDistHorzSpace	0	図形と図形の間の間隔が均一になるように図形を水平に配置します。
visDistVertBottom	7	底辺の間隔が均一になるように図形を左右に並べて配置します。
visDistVertMiddle	6	中央の間隔が均一になるように図形を左右に並べて配置します。
visDistVertSpace	4	図形と図形の間隔が均等になるように垂直に並べます。
visDistVertTop	5	上辺の間隔が均一になるように図形を左右に並べて配置します。

Distribute メソッドの呼び出しは、[図形の配布] ダイアログ ボックスのオプションの設定と同じです ([ホーム] タブの [位置] をクリックし、[スペース図形] をポイントして、[その他の配布オプション] をクリックします)。

オプションの引数 GlueToGuide に True を渡すのは、[図形の間隔揃え] ダイアログ ボックスの [新規ガイドを作成し、図形を揃える] チェック ボックスをオンにするのと同じ操作です。

GlueToGuide に True を渡す場合、図形の間隔を保持するガイドを作成します。 最も外側のガイドを選択して移動することによって、配置を変更しないで図形を移動できます。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、Distribute メソッドを使用して、3 つの図形を右辺の間隔が均一になるように垂直に揃え、ガイドを接着します。

Public Sub Distribute_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim vsoShape3 As Visio.Shape 
 
 Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(1, 9, 3, 7) 
 Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(3, 6, 5, 5) 
 Set vsoShape3 = Application.ActiveWindow.Page.DrawRectangle(6, 4, 8, 2) 
 
 ActiveWindow.DeselectAll 
 
 ActiveWindow.Select vsoShape1, visSelect 
 ActiveWindow.Select vsoShape2, visSelect 
 ActiveWindow.Select vsoShape3, visSelect 
 
 Application.ActiveWindow.Selection.Distribute visDistVertRight, True 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。