Partager via

ShapeRange.Distribute, méthode (Excel)

  • Article

Cette méthode distribue les formes horizontalement ou verticalement dans la plage des formes spécifiée.

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 Non utilisé dans Microsoft Excel. Doit avoir la valeur False.

Exemple

Cet exemple montre comment définir une plage de formes contenant toutes les formes automatiques dans myDocument et distribuer ensuite horizontalement les formes dans cette plage. La forme la plus à gauche conserve sa position.

Set myDocument = Worksheets(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, False 
        End If 
    End If 
End With

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.