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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。