Propriété ShapeRange.ParentGroup (PowerPoint)

  • Article

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 Variable qui représente un objet ShapeRange .

Valeur renvoyée

Shape

Exemple

Cet exemple crée deux formes sur la première diapositive de la présentation active et groupe ces deux formes ; à l’aide d’une des formes du groupe, il accède au groupe parent et remplit toutes les formes avec la même couleur de remplissage. Cet exemple suppose que la première diapositive de la présentation active ne contient actuellement pas de formes. Dans le cas contraire, vous obtenez une erreur.

Sub ParentGroup()

    Dim sldNewSlide As Slide
    Dim shpParentGroup As Shape

    'Add two shapes to active document and group

    Set sldNewSlide = ActivePresentation.Slides _
        .Add(Index:=1, Layout:=ppLayoutBlank)

    With sldNewSlide.Shapes
        .AddShape Type:=msoShapeBalloon, Left:=72, _
            Top:=72, Width:=100, Height:=100

        .AddShape Type:=msoShapeOval, Left:=110, _
            Top:=120, Width:=100, Height:=100

        .Range(Array(1, 2)).Group
    End With

    Set shpParentGroup = ActivePresentation.Slides(1).Shapes(1) _
        .GroupItems(1).ParentGroup

    shpParentGroup.Fill.ForeColor.RGB = RGB _
        (Red:=151, Green:=51, Blue:=250)

End Sub

Voir aussi

ShapeRange, objet

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.