Hyperlinks.ItemU, propriété (Visio)

Renvoie un objet d'une collection. En lecture seule.

Syntaxe

expression. ItemU (NameOrIndex)

expression Variable qui représente un objet lien hypertexte.

Paramètres

Valeur renvoyée

Hyperlink

Remarques

Vous pouvez récupérer un objet dans une collection Addons, Hyperlinks, Layers, Masters, MasterShortcuts, Pages, Shapes ou Styles en transmettant le nom de l’objet en tant qu’expression de chaîne dans un Variant.

Si vous récupérez un objet Shape par nom, la propriété ItemU recherche toutes les formes dans la forme de base contenante ou la page contenante de la collection Shapes, en plus de la forme contenante de la collection. Par conséquent, l'objet Shape renvoyé par la propriété ItemU peut être une forme qui ne figure pas dans la collection Shapes.

Vous pouvez également transmettre la chaîne de l'ID unique d'un objet Master ou Shape à la propriété ItemU. Par exemple :

objRet = vsoShapes.ItemU("{2287DC42-B167-11CE-88E9-0020AFDDD917}")

Si une telle chaîne est passée à la propriété ItemU d’une collection Shapes , toutes les formes contenues dans la collection font l’objet d’une recherche. Les formes des formes de groupe de la forme contenante ne font pas l’objet d’une recherche.

Pour rechercher toutes les formes de la collection, ainsi que celles incluses dans des groupes et dans la forme contenante de la collection, ajoutez un astérisque (*) comme préfixe à la chaîne de l'ID unique. Exemple :

objRet = vsoShapes.ItemU("*{2287DC42-B167-11CE-88E9-0020AFDDD917}")

Exemple

Cette macro Microsoft Visual Basic indique comment utiliser la propriété ItemU de la collection Pages pour récupérer la collection Shapes. Il utilise ensuite la propriété ItemU de la collection Shapes pour imprimer les noms universels de toutes les formes de la page 1 dans la fenêtre Exécution.

Pour exécuter cette macro, assurez-vous que le document actif comporte des formes sur la Page 1.

Public Sub ItemU_Example() 
  
    Dim intCounter As Integer 
    Dim intShapeCount As Integer 
    Dim vsoShapes As Visio.Shapes  
 
    Set vsoShapes = ActiveDocument.Pages.ItemU(1).Shapes  
 
    Debug.Print "Shapes in Document: "; ActiveDocument.Name  
    Debug.Print "          on  Page: "; ActiveDocument.Pages.ItemU(1).Name  
 
    intShapeCount = vsoShapes.Count  
 
    If intShapeCount > 0 Then 
 
        For intCounter = 1 To intShapeCount  
            Debug.Print " "; vsoShapes.ItemU(intCounter).Name  
        Next intCounter 
  
    Else 
 
        Debug.Print " No Shapes On Page" 
  
    End If   
 
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.