Объект GroupShapes (издатель)

Статья
04/07/2023

Представляет отдельные фигуры в сгруппированных фигурах. Каждая фигура представлена объектом Shape . С помощью метода Item с этим объектом можно работать с отдельными фигурами в группе без необходимости их разгруппировки.

Замечания

Используйте свойство Shape.GroupItems , чтобы вернуть коллекцию GroupShapes . Используйте GroupItems (index), где индекс — это номер отдельной фигуры в сгруппированной фигуре, чтобы вернуть одну фигуру из коллекции GroupShapes .

Пример

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

Sub WorkWithGroupShapes() 
 With ActiveDocument.Pages.Add(Count:=1, After:=1).Shapes 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 50, 50, 100, 100).Name = "shpOne" 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 200, 50, 100, 100).Name = "shpTwo" 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 350, 50, 100, 100).Name = "shpThree" 
 With .Range(Array("shpOne", "shpTwo", "shpThree")).Group 
 .Fill.PresetTextured PresetTexture:=msoTextureBlueTissuePaper 
 .GroupItems(3).Fill.PresetTextured _ 
 PresetTexture:=msoTextureGreenMarble 
 End With 
 End With 
End Sub

Методы

Элемент

Свойства

См. также

Справочник по объектной модели издателя

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

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

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