Selection.Distribute, méthode (Visio)

Répartit au moins trois formes sélectionnées à des intervalles réguliers sur la page de dessin. L’ordre de sélection est aléatoire.

Syntaxe

expression. Distribute( _Distribute_ , _GlueToGuide_ )

Expression Variable qui représente un objet Selection .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Distribute	Requis	VisDistributeTypes	Indique comment les formes sont distribuées. Reportez-vous aux notes pour les valeurs possibles.
GlueToGuide	Facultatif	Boolean	Si la valeur est True, crée des repères et y colle les formes sélectionnées. Si la valeur est False, ne le fait pas. Valeur par défaut est False.

Valeur renvoyée

Aucune

Remarques

Les valeurs possibles suivantes pour Distribute sont déclarées dans VisDistributeTypes dans la bibliothèque de types Visio.

Constante	Valeur	Description
visDistHorzCenter	2	Répartit les formes horizontalement pour que leurs bords inférieurs soient uniformément espacés.
visDistHorzLeft	1	Répartit les formes horizontalement pour que leurs bords gauches soient uniformément espacés.
visDistHorzRight	3	Répartit les formes horizontalement pour que leurs bords droits soient uniformément espacés.
visDistHorzSpace	0	Répartit les formes horizontalement pour qu'il y ait un espace uniforme entre elles.
visDistVertBottom	7	Répartit les formes verticalement pour que leurs bords inférieurs soient uniformément espacés.
visDistVertMiddle	6	Répartit les formes verticalement pour que leurs centres soient uniformément espacés.
visDistVertSpace	4	Répartit les formes verticalement pour qu'il y ait un espace uniforme entre elles.
visDistVertTop	5	Répartit les formes verticalement pour que leurs bords supérieurs soient uniformément espacés.

Appeler la méthode Distribute revient à définir des options dans la boîte de dialogue Distribuer les formes (sous l’onglet Accueil , cliquez sur Position, pointez sur Espaces, puis cliquez sur Autres options de distribution).

Transmettre True pour l'argument facultatif CollerAuRepère revient à activer la case à cocher Créer des repères et coller les formes dessus dans la boîte de dialogue Répartir les formes.

Lorsque vous transmettez la valeur True à CollerAuRepère, Visio crée des repères pour conserver la répartition des formes. Vous pouvez sélectionner et déplacer les repères les plus éloignés sans modifier leur répartition.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la méthode Distribute pour répartir trois formes verticalement de manière à ce que leurs bords droits soient uniformément espacés et collés sur les repères.

Public Sub Distribute_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim vsoShape3 As Visio.Shape 
 
 Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(1, 9, 3, 7) 
 Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(3, 6, 5, 5) 
 Set vsoShape3 = Application.ActiveWindow.Page.DrawRectangle(6, 4, 8, 2) 
 
 ActiveWindow.DeselectAll 
 
 ActiveWindow.Select vsoShape1, visSelect 
 ActiveWindow.Select vsoShape2, visSelect 
 ActiveWindow.Select vsoShape3, visSelect 
 
 Application.ActiveWindow.Selection.Distribute visDistVertRight, True 
 
End Sub

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.