Метод Selection.Align (Visio)

Выравнивание двух или более выделенных фигур.

Синтаксис

выражение. Выровнять (AlignHorizontal, AlignVertical, GlueToGuide)

выражение Переменная, представляющая объект выделения .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
AlignHorizontal	Обязательный	VisHorizontalAlignTypes	Выравнивает выделенные фигуры по горизонтальной оси. Возможные значения см. в примечаниях.
Выровнять по вертикали	Обязательный	VisVerticalAlignTypes	Выравнивание выделенных фигур по вертикальной оси. Возможные значения см. в примечаниях.
GlueToGuide	Необязательный	Логический	Если имеет значение True, создает направляющую и приклеивает к ней выбранные фигуры. если значение False, то нет. Значение по умолчанию - false.

Возвращаемое значение

Отсутствует

Примечания

Следующие возможные значения для AlignHorizontal объявлены в VisHorizontalSelectionTypes в библиотеке типов Visio.

Константа	Значение	Описание
visHorzAlignCenter	2	Выравнивание по центру основной выделенной фигуры.
visHorzAlignLeft	1	Выравнивание по левому краю основной выделенной фигуры.
visHorzAlignNone	0	Не выравнивается по горизонтали.
visHorzAlignRight	3	Выравнивание по правому краю основной выделенной фигуры.

Следующие возможные значения для AlignVertical объявлены в VisVerticalSelectionTypes в библиотеке типов Visio.

Константа	Значение	Описание
visVertAlignBottom	3	Выравнивание по нижнему краю основной выбранной фигуры.
visVertAlignMiddle	2	Выравнивание по середине основной выбранной фигуры.
visVertAlignNone	0	Не выравнивается по вертикали.
visVertAlignTop	1	Выравнивание по верхнему краю основной выбранной фигуры.

Если вы передаете ненулевые значения для свойств AlignHorizontal и AlignVertical, выбранные фигуры будут наложены. Последняя созданная фигура появится в начале z-порядка.

Вызов метода выравнивания аналогичен щелчку области "Положение" на вкладке "Главная" с последующей настройкой параметров в области "Выравнивание фигур".

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как выровнять три фигуры по вертикали с помощью метода выравнивания.

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 и обратная связь.