シェイプトゥイーン Group プロパティ (Excel)Shape.ParentGroup property (Excel)

子の図形または子の図形範囲の共通の親の図形を表す Shape オブジェクトを返します。Returns a Shape object that represents the common parent shape of a child shape or a range of child shapes.

構文Syntax

Parentgroupexpression.ParentGroup

Shape オブジェクトを表す変数を取得します。expression A variable that represents a Shape object.

Example

次の使用例は、アクティブ ワークシートに 2 つの図形を追加し、そのグループの親の図形を削除することによって、2 つの図形を削除します。In this example, Microsoft Excel adds two shapes to the active worksheet and then removes both shapes by deleting the parent shape of the group.

Sub ParentGroup() 
 
 Dim pgShape As Shape 
 
 With ActiveSheet.Shapes 
 .AddShape Type:=1, Left:=10, Top:=10, _ 
 Width:=100, Height:=100 
 .AddShape Type:=2, Left:=110, Top:=120, _ 
 Width:=100, Height:=100 
 .Range(Array(1, 2)).Group 
 End With 
 
 ' Using the child shape in the group get the Parent shape. 
 Set pgShape = ActiveSheet.Shapes(1).GroupItems(1).ParentGroup 
 
 MsgBox "The two shapes will now be deleted." 
 
 ' Delete the parent shape. 
 pgShape.Delete 
 
End Sub

サポートとフィードバック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.