Метод ShapeRange.Group (Word)
Группирует фигуры в указанном диапазоне и возвращает сгруппированные фигуры в виде одного объекта Shape .
Синтаксис
expression. Группы
выражение (обязательно). Переменная, представляющая объект ShapeRange .
Замечания
Так как группа фигур обрабатывается как одна фигура, группирование и разгруппирование фигур изменяет количество элементов в коллекции Фигуры и изменяет число индексов элементов, которые поступают после затронутых элементов в коллекции.
Пример
В этом примере в myDocument добавляются две фигуры, группирует две новые фигуры, задает заливку для группы, поворачивает группу и отправляет группу в заднюю часть слоя рисования.
Set myDocument = ActiveDocument
With myDocument.Shapes
.AddShape(msoShapeCan, 50, 10, 100, 200).Name = "shpOne"
.AddShape(msoShapeCube, 150, 250, 100, 200).Name = "shpTwo"
With .Range(Array("shpOne", "shpTwo")).Group
.Fill.PresetTextured msoTextureBlueTissuePaper
.Rotation = 45
.ZOrder msoSendToBack
End With
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по