Метод Selection.Align (Visio)

Статья
04/07/2023

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

Синтаксис

expression. Выравнивание (AlignHorizontal, AlignVertical, GlueToGuide)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
AlignHorizontal	Обязательный	VisHorizontalAlignTypes	Выравнивает выбранные фигуры по горизонтальной оси. Возможные значения см. в разделе Примечания.
AlignVertical	Обязательный	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-порядка.

Вызов метода Align эквивалентен щелчку позиции на вкладке Главная и настройке параметров в разделе Выравнивание фигур.

Пример

В этом макросе Microsoft Visual Basic для приложений (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 и обратная связь.

Поделиться через