Selection.Align 方法 (Visio)

将两个或多个选定的形状对齐。

语法

表达式。Align (AlignHorizontal、 AlignVertical、 GlueToGuide)

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

参数

名称	必需/可选	数据类型	说明
AlignHorizontal	必需	VisHorizontalAlignTypes	沿水平轴对齐选定的形状。 有关可能值，请参阅“说明”。
AlignVertical	必需	VisVerticalAlignTypes	沿垂直轴对齐选定的形状。 有关可能值，请参阅“说明”。
GlueToGuide	可选	Boolean	如果 为 True，则创建参考线并将所选形状粘附到该参考线上;如果 为 False，则不为 。 默认值为 False。

返回值

Nothing

注解

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

常量	值	Description
visHorzAlignCenter	2	与主要选定形状的中心对齐。
visHorzAlignLeft	1	与主要选定形状的左侧对齐。
visHorzAlignNone	0	不在水平方向对齐。
visHorzAlignRight	3	与主要选定形状的右侧对齐。

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

常量	值	Description
visVertAlignBottom	3	与主要选定形状的底部对齐。
visVertAlignMiddle	2	与主要选定形状的中间对齐。
visVertAlignNone	0	不在垂直方向对齐。
visVertAlignTop	1	与主要选定形状的顶部对齐。

如果为 AlignHorizontal 和 AlignVertical 传递非零值，则选定的形状会叠加显示。 最近创建的形状显示在 z-顺序的前面。

调用 Align 方法等效于单击“开始”选项卡上的“位置”，然后在“对齐形状”下设置选项。

示例

此 Microsoft Visual Basic for Applications (VBA) 宏说明如何使用 Align 方法在垂直方向对齐三个形状。

Public Sub Align_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.Align visHorzAlignRight, visVertAlignNone, False 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。