次の方法で共有

ShapeRange.GroupItems プロパティ (Excel)

  • [アーティクル]

指定したグループ内の各図形を表す GroupShapes オブジェクトを取得します。 グループ内から 1 つの図形を取得するには、 GroupShapes オブジェクトの Item メソッドを使用します。 グループ化された図形を表す ShapeRange オブジェクトに対して使用します。 値の取得のみ可能です。

構文

式。GroupItems

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

例

次の使用例は、 myDocument に 3 つの三角形を追加し、それらをグループ化し、グループ全体の色を設定してから、2 番目の三角形の色のみを変更します。

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

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

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