Propriété Layers.ItemU (Visio)

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

Syntaxe

expression. ItemU (NameOrIndex)

expression Variable qui représente un objet Layers .

Paramètres

Valeur renvoyée

Couche

Remarques

Vous pouvez récupérer un objet d’une collection de modules complémentaires, d’hyperliens, de calques, de masques, de raccourcis claviers, de pages, de formes ou de styles en transmettant le nom de l’objet sous forme d’expression de chaîne dans une variante.

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 transmise à la propriété ItemU d’une collection de formes , toutes les formes contenues dans la collection font l’objet d’une recherche. Les formes du groupe Formes de la forme conteneur 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 Formes pour imprimer les noms universels de toutes les formes sur la page-1 dans la fenêtre Immédiat.

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.