Méthode Page.UniqueIDsToShapeIDs (Visio)
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.