ShapeRange.Group メソッド (Publisher)

指定された図形範囲の図形をグループ化します。 グループ化した図形を 1 つの Shape オブジェクトとして返します。

構文

式。グループ

式ShapeRange オブジェクトを表す変数。

戻り値

Shape

注釈

指定した範囲内に複数の図形が含まれている必要があります。1 つだけだとエラーが発生します。

図形のグループでは、1 つの図形をグループ化して、 Shapes コレクション内の項目の数の図形の変更をグループ解除として扱われ、コレクション内の影響を受ける項目の後にある項目のインデックス番号を変更します。

例

次の使用例は、作業中の文書の先頭ページに 2 つの図形を追加し、その 2 つの図形をグループ化したものに対して、塗りつぶしの設定、回転、および最背面への移動を行います。

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 のサポートおよびフィードバックを参照してください。