Partager via

Propriété Selection.ChildShapeRange (Publisher)

  • Article

Cette propriété renvoie un objet ShapeRange représentant les formes enfant d'une sélection.

Syntaxe

expression. ChildShapeRange

Expression Variable qui représente un objet Selection .

Valeur renvoyée

ShapeRange

Exemple

Cet exemple crée une nouvelle page dans la composition active, la remplit avec des formes, puis sélectionne et regroupe ces formes. Après avoir annulé la sélection de deux des formes de groupe, le type de forme automatique de l’une des formes est modifié.

Sub ChangeFillToChildShape() 
 
 With ThisDocument.Pages(1) 
 With .Shapes 
 .AddShape msoShape4pointStar, 10, 10, 175, 175 
 .AddShape msoShapeOval, 100, 100, 175, 75 
 .AddShape msoShapeOval, 150, 150, 175, 75 
 .Range.Group 
 .SelectAll 
 End With 
 .Shapes(1).GroupItems(1).Select msoFalse 
 .Shapes(1).GroupItems(2).Select msoFalse 
 End With 
 
 Selection.ChildShapeRange(3).AutoShapeType = msoShapeDiamond 
 
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.