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