Freigeben über

ShapeRange.ParentGroup-Eigenschaft (Excel)

  • Artikel

Gibt ein Shape -Objekt zurück, das die gemeinsame übergeordnete Form einer untergeordneten Form oder eines Bereichs von untergeordneten Formen darstellt.

Syntax

Ausdruck. ParentGroup

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Beispiel

In diesem Beispiel fügt Microsoft Excel zwei Formen zum aktiven Arbeitsblatt hinzu und entfernt dann beide Formen, indem die übergeordnete Form der Gruppe gelöscht wird.

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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.