ShapeRange.Distribute, méthode (PowerPoint)

Article
04/07/2023

Répartit uniformément les formes dans la plage de formes spécifiée. Vous pouvez définir une répartition horizontale ou verticale des formes et indiquer si vous souhaitez les répartir sur toute la diapositive ou uniquement sur l’espace qu’elles occupaient à l’origine.

Syntaxe

expression. Distribute( _DistributeCmd_, _RelativeTo_ )

Expression Variable qui représente un objet ShapeRange .

Parameters

Nom	Requis/Facultatif	Type de données	Description
DistributeCmd	Requis	MsoDistributeCmd	Indique si les formes dans la plage doivent être distribuées horizontalement ou verticalement.
RelativeTo	Obligatoire	MsoTriState	Détermine si les formes sont réparties uniformément sur tout l’espace horizontal ou vertical de la diapositive.

Valeur renvoyée

Aucune

Exemple

Cet exemple définit une plage de formes qui contient toutes les formes automatiques de myDocument, puis les répartit horizontalement à l’intérieur de cette plage.

Set myDocument = ActivePresentation.Slides(1) 
With myDocument.Shapes 
    numShapes = .Count 
    If numShapes > 1 Then 
        numAutoShapes = 0 
        ReDim autoShpArray(1 To numShapes) 
        For i = 1 To numShapes 
            If .Item(i).Type = msoAutoShape Then 
                numAutoShapes = numAutoShapes + 1 
                autoShpArray(numAutoShapes) = .Item(i).Name 
            End If 
        Next 
        If numAutoShapes > 1 Then 
            ReDim Preserve autoShpArray(1 To numAutoShapes) 
            Set asRange = .Range(autoShpArray) 
            asRange.Distribute msoDistributeHorizontally, msoFalse 
        End If 
    End If 
End With

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.

Partager via