Partager via

Objet GroupShapes (Publisher)

  • Article

Représente les formes individuelles d'une forme groupée. Chaque forme est représentée par une forme objet. À l'aide de l' élément méthode avec cet objet, vous pouvez travailler avec des formes individuelles dans un groupe sans avoir à les dissocier.

Remarques

Utilisez la propriété Shape.GroupItems pour renvoyer une collection GroupShapes . Utilisez GroupItems (index), où index est le numéro de la forme individuelle dans la forme groupée, pour renvoyer une forme unique de la collection GroupShapes .

Exemple

L'exemple suivant ajoute trois triangles au document actif, les regroupe, définit une couleur pour le groupe entier et puis change la couleur du troisième triangle uniquement.

Sub WorkWithGroupShapes() 
 With ActiveDocument.Pages.Add(Count:=1, After:=1).Shapes 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 50, 50, 100, 100).Name = "shpOne" 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 200, 50, 100, 100).Name = "shpTwo" 
 .AddShape(msoShapeIsoscelesTriangle, _ 
 350, 50, 100, 100).Name = "shpThree" 
 With .Range(Array("shpOne", "shpTwo", "shpThree")).Group 
 .Fill.PresetTextured PresetTexture:=msoTextureBlueTissuePaper 
 .GroupItems(3).Fill.PresetTextured _ 
 PresetTexture:=msoTextureGreenMarble 
 End With 
 End With 
End Sub

Méthodes

Propriétés

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.