Shape.ParentGroupShape-Eigenschaft (Publisher)

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. ParentGroupShape

expression Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

Form

Beispiel

Dieses Beispiel erstellt zwei Formen in dem aktiven Dokument und gruppiert diese Formen. Mithilfe einer Form in der Gruppe greift sie auf die übergeordnete Gruppe zu und füllt alle Formen in der übergeordneten Gruppe mit demselben Füllmuster aus. Dieses Beispiel geht davon aus, dass das aktive Dokument zurzeit keine Formen enthält. Wenn es Formen enthält, kann ein Fehler auftreten.

Sub ParentGroupShape() 
 Dim shpGroup As Shape 
 
 With ActiveDocument.Pages(1).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 shpGroup = ActiveDocument.Pages(1).Shapes(1) _ 
 .GroupItems(1).ParentGroupShape 
 shpGroup.Fill.Patterned Pattern:=msoPattern25Percent 
 
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.