GroupShapes オブジェクト (Excel)GroupShapes object (Excel)

グループ化した図形を表します。Represents the individual shapes within a grouped shape.


各図形は、 Shape オブジェクトで表されます。Each shape is represented by a Shape object. このオブジェクトで Item メソッドを使用すると、それらの図形のグループ化を解除しなくても、グループ内の図形に個別に設定することができます。Using the Item method with this object, you can work with single shapes within a group without having to ungroup them.


GroupShapesコレクションを取得するのにには、 Shapeオブジェクトの**groupitems** プロパティを使用します。Use the GroupItems property of the Shape object to return the GroupShapes collection.

GroupShapesコレクションから1つの図形を取得するには、 groupitems (index) を使用します。_引数 index_には、グループ化した図形内の個々の図形の番号を指定します。Use GroupItems (index), where index is the number of the individual shapes within the grouped shape, to return a single shape from the GroupShapes collection.

次の使用例では、myDocument__ に 3 つの三角形を追加し、それらをグループ化し、グループ全体に色を設定した後、2 番目の三角形の色だけを変更します。The following example adds three triangles to myDocument, groups them, sets a color for the entire group, and then changes the color for the second triangle only.

Set myDocument = Worksheets(1) 
With myDocument.Shapes 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 10, 10, 100, 100).Name = "shpOne" 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 150, 10, 100, 100).Name = "shpTwo" 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 300, 10, 100, 100).Name = "shpThree" 
 With .Range(Array("shpOne", "shpTwo", "shpThree")).Group 
 .Fill.PresetTextured msoTextureBlueTissuePaper 
 .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble 
 End With 
End With



関連項目See also

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.