Group Method (ShapeRange Object)

Applies To

ShapeRange collection object.

Description

Groups the shapes in the specified range. Returns the grouped shapes as a single Shape object.

Syntax

expression.Group

expression Required. An expression that returns a ShapeRange object.

Remarks

Because a group of shapes is treated as a single shape, grouping and ungrouping shapes changes the number of items in the Shapes collection and changes the index numbers of items that come after the affected items in the collection.

See Also

ApplyOutlineStyles method, AutoOutline method, ClearOutline method, DisplayOutline property, Outline object, OutlineLevel property, ShowDetail property, Ungroup method.

Example

This example adds two shapes to myDocument, groups the two new shapes, sets the fill for the group, rotates the group, and sends the group to the back of the drawing layer.

Set myDocument = Worksheets(1)
With myDocument.Shapes
    .AddShape(msoShapeCan, 50, 10, 100, 200).Name = "shpOne"
    .AddShape(msoShapeCube, 150, 250, 100, 200).Name = "shpTwo"
    With .Range(Array("shpOne", "shpTwo")).Group
        .Fill.PresetTextured msoTextureBlueTissuePaper
        .Rotation = 45
        .ZOrder msoSendToBack
    End With
End With