WebNavigationBarSets. Parent-Eigenschaft (Publisher)WebNavigationBarSets.Parent property (Publisher)

Gibt ein Objekt zurück, das das übergeordnete Objekt des angegebenen Objekts darstellt.Returns an object that represents the parent object of the specified object. Für ein TextFrame- Objekt gibt beispielsweise ein Shape -Objekt zurück, das die übergeordnete Form des Textrahmens darstellt.For example, for a TextFrame object, returns a Shape object representing the parent shape of the text frame. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. Übergeordnetes Elementexpression.Parent

Ausdruck Eine Variable, die ein WebNavigationBarSets -Objekt darstellt.expression A variable that represents a WebNavigationBarSets object.

BeispielExample

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.This example accesses the parent object of the selected shape, and then adds a new shape to it and sets the fill for the new shape.

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.This example returns the parent object of a text frame, which is the first shape in the active publication, and then fills the shape with a pattern.

Sub ParentShape() 
 Dim shpParent As Shape 
 Set shpParent = ActiveDocument.Pages(1).Shapes(1).TextFrame.Parent 
 shpParent.Fill.Patterned Pattern:=msoPatternSphere 
End Sub

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.