ShapeRange.ParentGroup property (Excel)
Returns a Shape object that represents the common parent shape of a child shape or a range of child shapes.
Syntax
expression.ParentGroup
expression A variable that represents a ShapeRange object.
Example
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
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Geri Bildirim
https://aka.ms/ContentUserFeedback.
Çok yakında: 2024 boyunca, içerik için geri bildirim mekanizması olarak GitHub Sorunları’nı kullanımdan kaldıracak ve yeni bir geri bildirim sistemiyle değiştireceğiz. Daha fazla bilgi için bkz.Gönderin ve geri bildirimi görüntüleyin