ShapeRange.Distribute, méthode (Word)

Article
04/07/2023

Répartit uniformément les formes dans la plage de formes spécifiée. .

Syntaxe

expression. Distribute( _Distribute_ , _RelativeTo_ )

expression Obligatoire. Variable qui représente un objet ShapeRange.

Parameters

Nom	Requis/Facultatif	Type de données	Description
Distribute	Requis	MsoDistributeCmd	Spécifie si les formes doivent être distribuées horizontalement ou verticalement.
RelativeTo	Obligatoire	Long	True pour répartir uniformément les formes sur l’ensemble de l’espace horizontal ou vertical de la page. False pour les répartir dans l’espace horizontal ou vertical que la plage de formes occupe à l’origine.

Remarques

Vous pouvez préciser si les formes doivent être distribuées horizontalement ou verticalement et si elles doivent l'être sur la totalité de la page ou uniquement sur l'espace qu'elles occupaient à l'origine.

Exemple

Cet exemple montre comment définir une plage de formes qui contient toutes les formes automatiques du document actif, puis les distribuer horizontalement dans la plage.

With ActiveDocument.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

Voir aussi

ShapeRange, Collection d'objets

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