Объект GroupShapes (PowerPoint)

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

Пример

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

Set myDocument = ActivePresentation.Slides(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

См. также

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

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

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