GroupItems Property

collection if the specified shape is a group.

expression.GroupItems

expression    Required. An expression that returns one of the objects in the Applies To list.

Remarks

All smart objects will be treated as grouped shapes.

Example

This example adds three triangles to a publication, groups them, sets a color for the entire group, and then changes the color for the second triangle only.

Sub Grouper()

    Dim docSheet As Document

    Set docSheet = ActiveDocument
    With docSheet.MasterPages.Item(1).Shapes
        ' Add the 3 triangles
        .AddShape(Type:=msoShapeIsoscelesTriangle, _
            Left:=10, Top:=10, Width:=100, Height:=100).Name = "shpOne"
        .AddShape(Type:=msoShapeIsoscelesTriangle, _
            Left:=150, Top:=10, Width:=100, Height:=100).Name = "shpTwo"
        .AddShape(Type:=msoShapeIsoscelesTriangle, _
            Left:=300, Top:=10, Width:=100, Height:=100).Name = "shpThree"
        ' Group and fill the 3 triangles
        With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
            .Fill.PresetTextured msoTextureBlueTissuePaper
            .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble
        End With
    End With

End Sub