Partager via


Propriété ShapeNodes.Parent (Publisher)

Cette propriété renvoie un objet qui représente l'objet parent de l'objet spécifié. Par exemple, pour un objet TextFrame, elle renvoie un objet Shape qui représente la forme parente du cadre de texte. En lecture seule.

Syntaxe

expression. Parent

Expression Variable qui représente un objet ShapeNodes .

Exemple

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.

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.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette 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.