Propriété Window.Selection (Visio)

  • Article

Renvoie un objet Selection qui représente les éléments actuellement sélectionnés dans la fenêtre ou associe une sélection créée par la méthode CreateSelection à un objet Selection. Lecture-écriture.

Syntaxe

expression. Sélection

Expression Variable qui représente un objet Window .

Valeur renvoyée

Sélection

Remarques

L'objet Selection est indépendant de la sélection dans la fenêtre, qui peut changer suite à des actions de l'utilisateur.

Un objet Selection est un ensemble de formes dans un contexte commun sur lequel vous pouvez effectuer des actions. Un objet Selection est analogue à plus d'objets qu'à ceux sélectionnés dans une fenêtre de dessin. Lorsque vous définissez ou récupérez un objet Selection, vous pouvez modifier l'ensemble de formes représenté par l'objet en utilisant la méthode Select.

Une fois que vous avez utilisé la méthode CreateSelection pour créer une sélection, vous pouvez utiliser la propriété Selection pour afficher la nouvelle sélection dans la fenêtre de dessin Microsoft Visio. Reportez-vous au deuxième exemple ci-dessous.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) illustre l'utilisation de la propriété Selection pour récupérer toutes les formes sélectionnées dans une fenêtre.

Public Sub Selection_Example() 
 
 Const MAX_SHAPES = 6 
 Dim vsoShapes(1 To MAX_SHAPES) As Visio.Shape 
 Dim vsoSelection As Visio.Selection 
 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 
 
 'Deselect all the shapes in the active window. 
 ActiveWindow.DeselectAll 
 
 'Select all the shapes in the active window. 
 ActiveWindow.SelectAll 
 
 'Get the selected shapes and assign them to a Selection object. 
 Set vsoSelection = ActiveWindow.Selection 
 
End Sub

Cette macro VBA présente le mode d'utilisation de la méthode CreateSelection pour sélectionner toutes les formes d'un calque donné. Il utilise ensuite la propriété Selection pour afficher la sélection dans la fenêtre de dessin Visio.

Avant d’exécuter cette macro, créez deux couches dans votre dessin, l’une nommée « a » et l’autre nommée « b », puis ajoutez des formes aux deux couches.

Public Sub Selection_Example_2() 
 
 Dim vsoLayer As Layer 
 Dim vsoSelection As Visio.Selection 
 
 Set vsoLayer = ActivePage.Layers.ItemU("a") 
 Set vsoSelection = ActivePage.CreateSelection(visSelTypeByLayer, visSelModeSkipSuper, VsoLayer) 
 
 Application.ActiveWindow.Selection = vsoSelection 
 
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.