Объект GroupShapes (Word)
Представляет отдельные фигуры в сгруппированных фигурах. Каждая фигура, содержащаяся в группе фигур, представлена объектом Shape .
Используйте свойство GroupItems , чтобы вернуть коллекцию GroupShapes . Используйте GroupItems (Index), где Index — это номер отдельной фигуры в сгруппированных фигурах, чтобы вернуть одну фигуру из коллекции GroupShapes . В следующем примере три треугольника добавляются в активный документ, группирует их, задает цвет для всей группы, а затем изменяет цвет только для второго треугольника.
With ActiveDocument.Shapes
.AddShape(msoShapeIsoscelesTriangle, _
10, 10, 100, 100).Name = "shpOne"
.AddShape(msoShapeIsoscelesTriangle, _
150, 10, 100, 100).Name = "shpTwo"
.AddShape(msoShapeIsoscelesTriangle, _
300, 10, 100, 100).Name = "shpThree"
With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
.Fill.PresetTextured msoTextureBlueTissuePaper
.GroupItems(2).Fill.PresetTextured msoTextureGreenMarble
End With
End With
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.