ShapeRange.Group 方法 (Publisher)

會群組指定之圖形範圍中的圖形。 會將群組的圖形當做單一 Shape 物件傳回。

語法

運算式。組

表達 代表 ShapeRange 物件的 變數。

傳回值

圖形

註解

指定範圍必須包含一個以上的圖案，否則會發生錯誤。

因為圖案群組被視為單一圖形、 群組及取消群組圖案變更圖形的 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 支援與意見反應。