Méthode Page.UniqueIDsToShapeIDs (Visio)

  • Article

Retourne un tableau d’ID de forme de formes sur la page, comme spécifié par leurs ID uniques.

Remarque

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

Syntaxe

expression. UniqueIDsToShapeIDs( _GUIDs()_ , _ShapeIDs()_ )

Expression Expression qui renvoie un objet Page .

Parameters

Nom Requis/Facultatif Type de données Description
GUID() Requis String Tableau des ID uniques de type String des formes sur la page.
ShapeIDs() Obligatoire Long Paramètre sortant. Tableau vide que la méthode remplit avec les ID de forme de type Long qui correspondent aux formes spécifiées dans GUID()

Valeur renvoyée

Aucune

Remarques

Microsoft Visio identifie des formes par deux identificateurs différents : des identificateurs de forme et des identificateurs uniques. Les ID de forme sont des nombres qui identifient de façon unique les formes sur une page de dessin. Ils ne sont pas uniques au-delà d’une page.

Les ID uniques sont des identificateurs globaux uniques (GUID). Ils sont uniques au sein de l'application.

Pour convertir les ID de forme en ID uniques, et inversement, vous pouvez utiliser deux méthodes de l’objet Page : ShapeIDsToUniqueIDs et UniqueIDsToShapeIDs.

Par défaut, une forme ne possède pas d’D unique. Une forme acquiert un ID unique uniquement si vous définissez sa propriété Shape.UniqueID .

Si un objet Shape possède un ID unique, aucune autre forme de document n'aura le même ID.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) ci-dessous illustre comment utiliser la méthode UniqueIDsToShapeIDs pour déterminer les ID de forme des formes sur la page transmises à la méthode sous forme d'ID uniques. Elle itère toutes les formes sur la page de dessin active, en utilisant la propriété UniqueID de chaque forme pour obtenir les ID uniques des formes. Ensuite, il transmet ces ID uniques à la méthode UniqueIDsToShapeIDs pour retourner les ID de forme des formes. Elle affiche enfin les ID uniques et de forme dans la fenêtre Exécution.

Avant d'exécuter cette macro, ouvrez un dessin Visio, puis placez plusieurs formes sur la page de dessin active.

Public Sub UniqueIDsToShapeIDs_Example() 
 
    Dim vsoShape As Visio.Shape 
    Dim intArrayCounter As Integer 
    Dim intShapeCount As Integer 
     
    intShapeCount = ActivePage.Shapes.Count 
     
    ReDim astrUniqueIDs(intShapeCount - 1) As String 
    ReDim alngShapeIDs(intShapeCount - 1) As Long 
     
    intArrayCounter = 0 
     
    For Each vsoShape In ActivePage.Shapes         
        astrUniqueIDs(intArrayCounter) = vsoShape.UniqueID(1) 
        Debug.Print astrUniqueIDs(intArrayCounter) 
        intArrayCounter = intArrayCounter + 1 
    Next 
    
    ActivePage.UniqueIDsToShapeIDs astrUniqueIDs, alngShapeIDs 
     
    intArrayCounter = 0 
 
    For intArrayCounter = LBound(alngShapeIDs) To UBound(alngShapeIDs) 
        Debug.Print alngShapeIDs(intArrayCounter) 
    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.