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
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour