Selection.Select, méthode (Visio)

Article
04/07/2023

Sélectionne ou annule la sélection d'un objet.

Syntaxe

expression. Select (SheetObject, SelectAction)

Expression Variable qui représente un objet Selection .

Parameters

Nom	Requis/Facultatif	Type de données	Description
SheetObject	Requis	[IVSHAPE]	Expression qui renvoie un objet Shape à sélectionner ou effacer.
SelectAction	Requis	Integer	Type d'action de sélection à effectuer.

Valeur renvoyée

Aucune

Remarques

Lorsqu’elle est utilisée avec l’objet Window , la méthode Select affecte la sélection dans la fenêtre Microsoft Visio. Toutefois, l’objet Selection est indépendant de la sélection dans la fenêtre. Par conséquent, l’utilisation de la méthode Select avec un objet Selection affecte uniquement l’état de l’objet en mémoire ; la fenêtre Visio n’est pas affectée.

Les constantes suivantes déclarées par la bibliothèque de types de Visio dans VisSelectArgs indiquent des valeurs valides pour les types de sélection.

Constante	Valeur	Description
visDeselect	1	Annule la sélection d'une forme, mais ne modifie pas le reste de la sélection.
visSelect	2	Sélectionne une forme, mais ne modifie pas le reste de la sélection.
visSubSelect	3	Sélectionne une forme dont le parent est déjà sélectionné.
visSelectAll	4	Sélectionne une forme et tous ses homologues.
visDeselectAll	256	Annule la sélection d'une forme et tous ses homologues.

Si ActionSélection est visSubSelect, la forme parente de ObjetFeuille doit déjà être sélectionnée.

Vous pouvez combiner visDeselectAll avec visSelect et visSubSelect pour annuler la sélection de toutes les formes avant de sélectionner ou de sous-sélectionner d'autres formes.

Si l'objet traité est un objet Selection et si la méthode Select sélectionne un objet Shape dont la propriété ContainingShape est différente de la propriété ContainingShape de l'objet Selection, la méthode Select efface tout, même si la valeur de type de sélection n'indique pas d'effacer la sélection.

Si l'objet traité est un objet Window et si ActionSélection n'est pas visSubSelect, la forme parente de ObjetFeuille doit être la même forme que celle renvoyée par la propriété ContainingShape de l'objet Window.Selection.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment sélectionner, effacer et sous-sélectionner des formes.

 
Public Sub Select_Example() 
 
 Const MAX_SHAPES = 6 
 Dim vsoShapes(1 To MAX_SHAPES) As Visio.Shape 
 Dim intCounter As Integer 
 
 'Draw six rectangles. 
 For intCounter = 1 To MAX_SHAPES 
 Set vsoShapes(intCounter) = ActivePage.DrawRectangle(intCounter, intCounter + 1, intCounter + 1, intCounter) 
 Next intCounter 
 
 'Cancel the selection of all the shapes on the page. 
 ActiveWindow.DeselectAll 
 
 'Create a Selection object. 
 Dim vsoSelection As Visio.Selection 
 Set vsoSelection = ActiveWindow.Selection 
 
 'Select the first three shapes on the page. 
 For intCounter = 1 To 3 
 vsoSelection.Select vsoShapes(intCounter), visSelect 
 Next intCounter 
 
 'Group the selected shapes. 
 'Although the first three shapes are now grouped, the 
 'array vsoShapes() still contains them. 
 Dim vsoGroup As Visio.Shape 
 Set vsoGroup = vsoSelection.Group 
 
 'There are now four shapes on the page - a group that contains three 
 'subshapes, and three ungrouped shapes. Subselection is 
 'accomplished by selecting the parent shape first or one of the 
 'group's shapes already subselected. 
 
 'Select parent (group) shape. 
 ActiveWindow.Select vsoGroup, visDeselectAll + visSelect 
 
 'Subselect two of the shapes in the group. 
 ActiveWindow.Select vsoShapes(1), visSubSelect 
 ActiveWindow.Select vsoShapes(3), visSubSelect 
 
 'At this point two shapes are subselected, but we want to 
 'start a new selection that includes the last two shapes 
 'added to the page and the group. 
 
 'Note that the subselections that were made in the group 
 'are canceled by selecting another shape that is 
 'at the same level as the parent of the subselected shapes. 
 
 'Select just one shape. 
 ActiveWindow.Select vsoShapes(MAX_SHAPES), _ 
 visDeselectAll + visSelect 
 
 'Select another shape. 
 ActiveWindow.Select vsoShapes(MAX_SHAPES - 1), visSelect 
 
 'Select the group. 
 ActiveWindow.Select vsoGroup, visSelect 
 
 'Select all but one shape on the page. 
 ActiveWindow.SelectAll 
 ActiveWindow.Select vsoShapes(MAX_SHAPES - 1), visDeselect 
 
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.