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.