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
Ausdruck 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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für