Selection.Align, méthode (Visio)

Aligne au moins deux formes sélectionnées.

Syntaxe

expression. Align (AlignHorizontal, AlignVertical, GlueToGuide)

Expression Variable qui représente un objet Selection .

Parameters

Nom	Requis/Facultatif	Type de données	Description
AlignHorizontal	Requis	VisHorizontalAlignTypes	Aligne les formes sélectionnées le long d'un axe horizontal. Reportez-vous aux notes pour les valeurs possibles.
AlignVertical	Requis	VisVerticalAlignTypes	Aligne les formes sélectionnées le long d'un axe vertical. Reportez-vous aux notes pour les valeurs possibles.
GlueToGuide	Facultatif	Boolean	Si la valeur est True, crée un repère et y colle les formes sélectionnées ; si la valeur est False, ce n’est pas le cas. La valeur par défaut est False.

Valeur renvoyée

Aucune

Remarques

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

Constante	Valeur	Description
visHorzAlignCenter	2	Aligne au centre de la forme principale sélectionnée.
visHorzAlignLeft	1	Aligne à gauche de la forme principale sélectionnée.
visHorzAlignNone	0	N'aligne pas horizontalement.
visHorzAlignRight	3	Aligne à droite de la forme principale sélectionnée.

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

Constante	Valeur	Description
visVertAlignBottom	3	Aligne sur le bas de la forme principale sélectionnée.
visVertAlignMiddle	2	Aligne sur le milieu de la forme principale sélectionnée.
visVertAlignNone	0	N'aligne pas verticalement.
visVertAlignTop	1	Aligne sur le haut de la forme principale sélectionnée.

Si vous transmettez des valeurs non nulles pour AlignHorizontal et AlignVertical, les formes sélectionnées s'affichent superposées. Les dernières formes créées apparaissent à l'avant de la hiérarchie.

Appeler la méthode Align revient à cliquer sur Position sous l’onglet Accueil , puis à définir les options sous Aligner les formes.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la méthode Align pour aligner trois formes verticalement.

Public Sub Align_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.Align visHorzAlignRight, visVertAlignNone, False 
 
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.