组合指定的图形子集中的图形。将成组的图形作为单个 Shape 对象返回。
expression.Group
expression 必需。该表达式返回一个 ShapeRange 对象。
因为将成组图形作为单个图形,因此将图形进行组合或取消成组图形的组合时,会更改 Shapes 集合中的成员数目,并改变集合中受影响的图形之后的各成员的编号。
本示例向 myDocument
中添加两个图形,并组合这两个新图形,接着设置该组的填充格式并对该组进行旋转,然后将该组置于绘图层的后面。
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