Partager via

Propriété ShapeRange.ParentGroup (Excel)

  • Article

Cette propriété renvoie un objet Shape qui représente la forme parente commune d'une forme enfant ou d'une plage de formes enfants.

Syntaxe

expression. ParentGroup

Expression Variable qui représente un objet ShapeRange .

Exemple

Dans cet exemple, Microsoft Excel montre comment ajouter deux formes à la feuille de calcul active puis comment supprimer les deux formes en supprimant la forme parent du groupe.

Sub ParentGroup() 
 
 Dim pgShape As Shape 
 
 With ActiveSheet.Shapes 
 .AddShape Type:=1, Left:=10, Top:=10, _ 
 Width:=100, Height:=100 
 .AddShape Type:=2, Left:=110, Top:=120, _ 
 Width:=100, Height:=100 
 .Range(Array(1, 2)).Group 
 End With 
 
 ' Using the child shape in the group get the Parent shape. 
 Set pgShape = ActiveSheet.Shapes(1).GroupItems(1).ParentGroup 
 
 MsgBox "The two shapes will now be deleted." 
 
 ' Delete the parent shape. 
 pgShape.Delete 
 
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.