Visio) (Selection.Distribute 方法

會讓三個以上的選取圖形平均分散在繪圖頁面上。 選取順序不重要。

語法

expression。 Distribute( _Distribute_ , _GlueToGuide_ )

表達 代表 Selection 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Distribute	必要	VisDistributeTypes	會指定分散圖形的方式。 如需可能的值，請參閱＜備註＞。
GlueToGuide	選用	布林值	如果是 True，則建立輔助線，並將選取圖形黏附至輔助線。 如果是 False，則不做此處理。 預設值為 False 。

傳回值

無

註解

下列 Distribute 的可能 值會在Visio 類型程式庫的 VisDistributeTypes 中宣告。

常數	值	描述
visDistHorzCenter	2	水平分散圖形，使各圖形的下邊緣之間具有相同的距離。
visDistHorzLeft	1	水平分散圖形，使各圖形的左邊緣之間具有相同的距離。
visDistHorzRight	3	水平分散圖形，使各圖形的右邊緣之間具有相同的距離。
visDistHorzSpace	0	水平分散圖形，使各圖形之間具有相同的距離。
visDistVertBottom	7	垂直分散圖形，使各圖形的下邊緣之間具有相同的距離。
visDistVertMiddle	6	垂直分散圖形，使各圖形的中心之間具有相同的距離。
visDistVertSpace	4	垂直分散圖形，使各圖形之間具有相同的距離。
visDistVertTop	5	垂直分散圖形，使各圖形的上邊緣之間具有相同的距離。

呼叫Distribute方法相當於在 [常用] 索引標籤上 (的 [散發圖形] 對話方塊中設定選項，按一下 [位置]，指向[空間圖形]，然後按一下 [其他散發選項]) 。

為選用的 GlueToGuide 引數傳送 True 等同於選取 [分散圖形] 對話方塊中的 [建立輔助線並黏附圖形] 核取方塊。

為 GlueToGuide 傳送 True 時，Visio 會建立輔助線，以保持圖形的分散情形。 您可以選取並移動最外層的輔助線，而不會變更圖形的分散情形。

範例

這個 Microsoft Visual Basic for Applications (VBA) 巨集會顯示如何使用 Distribute 方法垂直分散三個圖形，使這些圖形的右邊緣不僅彼此距離相同，而且都黏附至輔助線。

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 支援與意見反應。