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

Свойство ShapeRange.GroupItems (Excel)

  • Статья

Возвращает объект GroupShapes , представляющий отдельные фигуры в указанной группе. Используйте метод Item объекта GroupShapes , чтобы вернуть одну фигуру из группы. Применяется к объектам ShapeRange , представляющим сгруппированные фигуры. Только для чтения.

Синтаксис

expression. GroupItems

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

Пример

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

Set myDocument = Worksheets(1) 
With myDocument.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

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

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