通过

ShapeRange.Group 方法 (Word)

  • 项目

组合指定区域中的图形并将组合的形状作为单个 Shape 对象返回。

语法

表达式。组

expression 是必需的。 一个代表 ShapeRange 对象的变量。

备注

由于一组形状被视为单个形状，组合和取消组合的形状的 Shapes 集合中项的数目，并更改集合中受影响的项之后的项的索引号。

示例

本示例向 myDocument 中添加两个图形，并组合这两个新图形，接着设置该组的填充格式并对该组进行旋转，然后将该组置于绘图层的后面。

Set myDocument = ActiveDocument 
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

另请参阅

ShapeRange 集合对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。