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

Статья
04/07/2023

Группирует фигуры в указанном диапазоне фигур. Возвращает сгруппированные фигуры в виде одного объекта Shape .

Синтаксис

expression. Группы

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

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

Shape

Примечания

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

Так как группа фигур обрабатывается как одна фигура, группирование и разгруппирование фигур изменяет количество элементов в коллекции Фигуры и изменяет число индексов элементов, которые поступают после затронутых элементов в коллекции.

Пример

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

With ActiveDocument.Pages(1).Shapes 
 
 ' Add two shapes to the page. 
 .AddShape(Type:=msoShapeCan, _ 
 Left:=50, Top:=10, Width:=100, Height:=200).Name = "shpOne" 
 .AddShape(Type:=msoShapeCube, _ 
 Left:=150, Top:=250, Width:=100, Height:=200).Name = "shpTwo" 
 
 ' Group the shapes and change the formatting for the whole group. 
 With .Range(Index:=Array("shpOne", "shpTwo")).Group 
 .Fill.PresetTextured PresetTexture:=msoTextureBlueTissuePaper 
 .Rotation = 45 
 .ZOrder ZOrderCmd:=msoSendToBack 
 End With 
 
End With

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

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

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