Propriété Shape.ParentGroup (Word)

Cette propriété renvoie un objet Shape qui représente la forme du parent ordinaire d'une forme enfant ou d'une plage de formes enfant.

Syntaxe

expression. ParentGroup

expression Obligatoire. Variable qui représente un objet Shape.

Exemple

Cet exemple montre comment créer deux formes dans le document actif, et les regrouper. Ensuite, en utilisant l'une des formes du groupe, l'exemple montre comment atteindre le groupe parent et remplir toutes les formes de ce groupe de la même couleur de remplissage. L'exemple présuppose que le document actif ne contient aucune forme. Si ce n'est pas le cas, une erreur se produit.

Sub ParentGroupShape() 
 Dim pgShape As Shape 
 
 'Add two shapes to active document and group 
 With ActiveDocument.Shapes 
 .AddShape Type:=msoShapeOval, Left:=72, _ 
 Top:=72, Width:=100, Height:=100 
 .AddShape Type:=msoShapeHeart, Left:=110, _ 
 Top:=120, Width:=100, Height:=100 
 .Range(Array(1, 2)).Group 
 End With 
 
 Set pgShape = ActiveDocument.Shapes(1) _ 
 .GroupItems(1).ParentGroup 
 pgShape.Fill.ForeColor.RGB = RGB(Red:=100, Green:=0, Blue:=255) 
 
End Sub

Voir aussi

Shape, objet

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.