Partager via


Propriété Page.Shapes (Visio)

Renvoie la collection Shapes pour une page, une forme de base ou un groupe. En lecture seule.

Syntaxe

expression. Formes

Expression Variable qui représente un objet Page .

Valeur renvoyée

Formes

Remarques

Si votre solution Visual Studio inclut la référence Microsoft.Office.Interop.Visio , cette propriété correspond aux types suivants :

  • Microsoft.Office.Interop.Visio.IVPage.Shapes

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété Shapes pour récupérer la collection Shapes. Elle affiche les noms de toutes les formes de la Page1 dans la fenêtre Exécution.

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

 
Public Sub Shapes_Example()  
 
    Dim intCounter As Integer 
    Dim intShapeCount As Integer 
    Dim vsoShapes As Visio.Shapes  
 
    Set vsoShapes = ActiveDocument.Pages.Item(1).Shapes  
 
    Debug.Print "Shapes in document: "; ActiveDocument.Name 
    Debug.Print "On page: "; ActiveDocument.Pages.Item(1).Name  
 
    intShapeCount = vsoShapes.Count  
 
    If intShapeCount > 0 Then 
        For intCounter = 1 To intShapeCount  
            Debug.Print " "; vsoShapes.Item(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.