FindReplace.Parent-Eigenschaft (Publisher)
Gibt ein Objekt zurück, das das übergeordnete Objekt des angegebenen Objekts darstellt. Beispielsweise gibt für ein TextFrame-Objekt ein Shape-Objekt zurück, das die übergeordnete Form des Textrahmens darstellt. Schreibgeschützt.
Syntax
Ausdruck. Elternteil
Ausdruck Eine Variable, die ein FindReplace-Objekt darstellt.
Beispiel
Das folgende Beispiel greift auf das übergeordnete Objekt der ausgewählten Form zu, fügt dann eine neue Form hinzu und legt die Füllung für die neue Form fest.
Sub ParentObject()
Dim shp As Shape
Dim pg As Page
Set pg = Selection.ShapeRange(1).Parent
Set shp = pg.Shapes.AddShape(Type:=msoShape5pointStar, _
Left:=72, Top:=72, Width:=72, Height:=72)
shp.Fill.ForeColor.RGB = RGB(Red:=180, Green:=180, Blue:=180)
End Sub
Das folgende Beispiel gibt die übergeordnete Form eines Textrahmens zurück, der die erste Form in der aktiven Publikation ist, und füllt dann die Form mit einem Muster.
Sub ParentShape()
Dim shpParent As Shape
Set shpParent = ActiveDocument.Pages(1).Shapes(1).TextFrame.Parent
shpParent.Fill.Patterned Pattern:=msoPatternSphere
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.