ShapeRange.Distribute, méthode (PowerPoint)
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
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour