Freigeben über

FindReplace.Parent-Eigenschaft (Publisher)

  • Artikel

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.