WebNavigationBarSets. Parent, propriété (Publisher)WebNavigationBarSets.Parent property (Publisher)

Cette propriété renvoie un objet qui représente l'objet parent de l'objet spécifié.Returns an object that represents the parent object of the specified object. Par exemple, pour un objet TextFrame, elle renvoie un objet Shape qui représente la forme parente du cadre de texte.For example, for a TextFrame object, returns a Shape object representing the parent shape of the text frame. En lecture seule.Read-only.

SyntaxeSyntax

expression. Parentexpression.Parent

expression Variable qui représente un objet WebNavigationBarSets .expression A variable that represents a WebNavigationBarSets object.

ExempleExample

Cet exemple accède à l'objet parent de la forme sélectionnée, puis lui ajoute une nouvelle forme et définit le remplissage de cette nouvelle forme.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

Cet exemple renvoie l'objet parent d'un cadre de texte, qui est la première forme de la composition active, puis il remplit cette forme avec un motif.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

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this documentation? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.