Shape.ParentGroup-Eigenschaft (Word)

Gibt ein Shape -Objekt zurück, das die gemeinsame Form des übergeordneten Objekts einer untergeordneten Form oder eines Bereichs aus untergeordneten Formen darstellt.

Syntax

Ausdruck. ParentGroup

expression Erforderlich. Eine Variable, die ein Shape-Objekt darstellt.

Beispiel

In diesem Beispiel werden zwei Formen im aktiven Dokument erstellt und gruppiert. Danach wird mithilfe einer Form der Gruppe auf die übergeordnete Gruppe zugegriffen und alle Formen darin mit einer Füllfarbe aufgefüllt. Dabei wird vorausgesetzt, dass das aktive Dokument momentan keine Formen enthält. Wenn es Formen enthält, kann ein Fehler auftreten.

Sub ParentGroupShape() 
 Dim pgShape As Shape 
 
 'Add two shapes to active document and group 
 With ActiveDocument.Shapes 
 .AddShape Type:=msoShapeOval, Left:=72, _ 
 Top:=72, Width:=100, Height:=100 
 .AddShape Type:=msoShapeHeart, Left:=110, _ 
 Top:=120, Width:=100, Height:=100 
 .Range(Array(1, 2)).Group 
 End With 
 
 Set pgShape = ActiveDocument.Shapes(1) _ 
 .GroupItems(1).ParentGroup 
 pgShape.Fill.ForeColor.RGB = RGB(Red:=100, Green:=0, Blue:=255) 
 
End Sub

Siehe auch

Shape-Objekt

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.