Objet GroupShapes (PowerPoint)

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.

Exemple

Utilisez la propriété GroupItems pour renvoyer la 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 . L'exemple suivant montre comment ajouter trois triangles à myDocument, les grouper, définir une couleur pour l'ensemble du groupe, puis changer la couleur du deuxième triangle.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes
    .AddShape(msoShapeIsoscelesTriangle, 10, _
        10, 100, 100).Name = "shpOne"

    .AddShape(msoShapeIsoscelesTriangle, 150, _
        10, 100, 100).Name = "shpTwo"

    .AddShape(msoShapeIsoscelesTriangle, 300, _
        10, 100, 100).Name = "shpThree"

    With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
        .Fill.PresetTextured msoTextureBlueTissuePaper
        .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble
    End With
End With

Voir aussi

Référence du modèle objet PowerPoint

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.