次の方法で共有


GroupShapes オブジェクト (Publisher)

グループ化された図形の中の各図形を表します。 各図形は、 Shape オブジェクトで表されます。 このオブジェクトで Item メソッドを使用すると、グループを解除せずにグループ内のそれぞれの図形を処理できます。

注釈

GroupShapes コレクションを取得するには、Shape.GroupItems プロパティを使用します。 GroupItems (index) を使用して、グループ化された図形内の個々の図形の数を index にして、GroupShapes コレクションから 1 つの図形を返します。

次の使用例は、作業中の文書に 3 つの三角形を追加し、それらをグループ化し、グループ全体に色を設定し、3 番目の三角形の色だけを変更します。

Sub WorkWithGroupShapes() 
 With ActiveDocument.Pages.Add(Count:=1, After:=1).Shapes 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 50, 50, 100, 100).Name = "shpOne" 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 200, 50, 100, 100).Name = "shpTwo" 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 350, 50, 100, 100).Name = "shpThree" 
 With .Range(Array("shpOne", "shpTwo", "shpThree")).Group 
 .Fill.PresetTextured PresetTexture:=msoTextureBlueTissuePaper 
 .GroupItems(3).Fill.PresetTextured _ 
 PresetTexture:=msoTextureGreenMarble 
 End With 
 End With 
End Sub

メソッド

プロパティ

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。