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