Méthode Selection.GetIDs (Visio)

Article
04/07/2023

Obtient les ID de formes dans la sélection.

Remarque

Cet objet ou ce membre Visio est disponible uniquement pour les titulaires d’une licence d’utilisation de Visio Professionnel 2013.

Syntaxe

expression. GetIDs(ShapeIDs())

Expression Expression qui renvoie un objet Selection .

Parameters

Nom	Requis/Facultatif	Type de données	Description
ShapeIDs()	Obligatoire	Long	Paramètre sortant. Tableau d'ID de forme de type Long correspondant aux formes dans la sélection.

Valeur renvoyée

Aucune

Remarques

Microsoft Visio utilise des numéros d’identification pour identifier des formes, des jeux d’enregistrements et des lignes de données. ID de forme sont uniques uniquement dans l’étendue de la page, sur qu'il se trouve. Une fois que vous avez déterminé ces ID de forme, vous pouvez les passer à la méthode Page.LinkShapesToDataRows pour spécifier exactement comment les formes de votre diagramme doivent être liées aux lignes de données dans les jeux d’enregistrements de données disponibles. Les ID de forme sont uniques au sein de l’étendue d’une page spécifique.

Pour déterminer l'ID de forme d'une forme qui fait partie d'une sélection, utilisez la méthode Selection.GetIDs.

L’ensemble des ID de forme retournés est déterminé par le paramètre de la propriété Selection.ItérationMode .

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment utiliser la méthode GetIDs pour obtenir les ID de formes d’une sélection et imprimer les ID dans la fenêtre Exécution. Elle sélectionne toutes les formes dans la fenêtre active.

Public Sub GetIDs_Example() 
 
    Dim vsoSelection As Visio.Selection 
    Dim lngShapeID As Long
    Dim intShapeIndex As Integer 
     
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
     
    Set vsoSelection = ActiveWindow.Selection 
     
    Call vsoSelection.GetIDs(lngShapeIDs) 
     
    For intShapeIndex = LBound(lngShapeIDs) To UBound(lngShapeIDs) 
        lngShapeID = lngShapeIDs(intShapeIndex)
        Debug.Print lngShapeID 
    Next 
 
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.

Partager via