Partager via

OLEObjects.Count, propriété (Visio)

  • Article

Renvoie le nombre d'objets d'une collection. En lecture seule.

Syntaxe

expression. Compter

Expression Variable qui représente un objet OLEObjects .

Valeur renvoyée

Entier long

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété Count pour effectuer une itération dans la collection Documents. Elle affiche les noms de tous les documents Microsoft Visio ouverts dans la fenêtre Exécution.

 
Public Sub Count_Example() 
 
 Dim intCounter As Integer 
 Dim vsoDocument As Visio.Document 
 
 For intCounter = 1 To Documents.Count 
 'Get the next open document. 
 Set vsoDocument = Documents.Item(intCounter) 
 
 'Print its name in the Immediate window. 
 Debug.Print vsoDocument.Name 
 Next intCounter 
 
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.