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
Ausdruck: 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
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