Selection.Distribut 方法 (Visio)

按固定间隔在绘图页上分配三个或更多选定的形状。 与选择顺序无关。

语法

expression。 Distribute( _Distribute_ , _GlueToGuide_ )

表达 一个代表 Selection 对象的变量。

参数

名称	必需/可选	数据类型	说明
分发	必需	VisDistributeTypes	指定如何分配形状。 有关可能值，请参阅“说明”。
GlueToGuide	可选	Boolean	如果为 True，则将创建参考线并将选定的形状粘附到其中。 如果为 False，则不会执行上述操作。 默认值为 False 。

返回值

Nothing

注解

在 Visio 类型库中的 VisDistributeTypes 中声明了 Distribut 的以下可能值。

常量	值	Description
visDistHorzCenter	2	水平分配形状，以使其下边缘的间距统一。
visDistHorzLeft	1	水平分配形状，以使其左边缘的间距统一。
visDistHorzRight	3	水平分配形状，以使其右边缘的间距统一。
visDistHorzSpace	0	水平分配形状，以使各形状间的距离统一。
visDistVertBottom	7	垂直分配形状，以使其下边缘的间距统一。
visDistVertMiddle	6	垂直分配形状，以使其中心的间距统一。
visDistVertSpace	4	垂直分配形状，以使各形状间的距离统一。
visDistVertTop	5	垂直分配形状，以使其上边缘的间距统一。

调用 Distribut 方法等效于在“开始”选项卡上 (设置“分布形状”对话框中的选项，单击“位置”，指向“空间形状”，然后单击“更多分布选项”) 。

为可选的 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。