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


Метод ShapeRange.Align (издатель)

Выравнивает все фигуры в указанном объекте ShapeRange .

Синтаксис

expression. Выравнивание (AlignCmd, RelativeTo)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
AlignCmd Обязательный MsoAlignCmd Указывает, как выравниваются фигуры.
RelativeTo Обязательный MsoTriState Указывает, выравниваются ли фигуры относительно страницы или друг к другу.

Замечания

Параметр AlignCmd может быть одной из констант MsoAlignCmd , объявленных в библиотеке типов Microsoft Office и показанных в следующей таблице.

Константа Описание
msoAlignBottoms Выравнивает фигуры по их нижним краям. Если параметр RelativeTo имеет значение msoFalse, нижняя фигура определяет линию, по которой выровнены другие фигуры.
msoAlignCenters Выравнивает фигуры по вертикали через их центры. Если relativeTo имеет значение msoFalse, фигуры выравниваются по линии на полпути между левыми и правыми фигурами.
msoAlignLefts Выравнивает фигуры по левому краю. Если параметр RelativeTo имеет значение msoFalse, левая фигура определяет линию, по которой выровнены другие фигуры.
msoAlignMiddles Выравнивает фигуры по горизонтальной линии по их центрам. Если relativeTo имеет значение msoFalse, фигуры выравниваются по полпути между верхней и нижней фигурами.
msoAlignRights msoAlignRights Выравнивает фигуры по правому краю. Если параметр RelativeTo имеет значение msoFalse, то самая правая фигура определяет линию, по которой выровнены другие фигуры.
msoAlignTops Выравнивает фигуры по их верхним краям. Если relativeTo имеет значение msoFalse, верхняя фигура определяет линию, по которой выровнены другие фигуры.

Параметр RelativeTo может быть одной из констант MsoTriState .

Константа Описание
msoFalse Выравнивает фигуры относительно друг друга.
msoTrue Выравнивает фигуры относительно страницы.

Если параметр RelativeTo имеет значение msoFalse , а диапазон фигур содержит только одну фигуру, возникает ошибка.

Пример

В следующем примере все фигуры на первой странице активной публикации выравниваются по вертикальной линии по их центрам.

ActiveDocument.Pages(1).Shapes.Range.Align _ 
 AlignCmd:=msoAlignCenters, _ 
 RelativeTo:=msoTrue 

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.