ShapeRange.Group 方法 (Publisher)

将指定形状范围中的形状进行组合。 组合形状作为单个 Shape 对象返回。

语法

表达式。群

表达 一个代表 ShapeRange 对象的变量。

返回值

Shape

说明

指定的范围必须包含多个形状，否则会出错。

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

示例

本示例将两个形状添加到当前出版物的第一页，组合这两个新形状，为该组合设置填充并将其旋转，然后将其发送到绘图层的最底层。

With ActiveDocument.Pages(1).Shapes 
 
 ' Add two shapes to the page. 
 .AddShape(Type:=msoShapeCan, _ 
 Left:=50, Top:=10, Width:=100, Height:=200).Name = "shpOne" 
 .AddShape(Type:=msoShapeCube, _ 
 Left:=150, Top:=250, Width:=100, Height:=200).Name = "shpTwo" 
 
 ' Group the shapes and change the formatting for the whole group. 
 With .Range(Index:=Array("shpOne", "shpTwo")).Group 
 .Fill.PresetTextured PresetTexture:=msoTextureBlueTissuePaper 
 .Rotation = 45 
 .ZOrder ZOrderCmd:=msoSendToBack 
 End With 
 
End With 

支持和反馈

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