Partager via

Propriété Master.Shapes (Visio)

  • Article

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 Master .

Valeur renvoyée

Formes

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.