Compartilhar via


Propriedade EventList.Count (Visio)

Retorna o número de objetos de uma coleção. Somente leitura.

Sintaxe

expressão. Contar

Expressão Uma variável que representa um objeto EventList .

Valor de retorno

Inteiro

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade Count para fazer a iteração por meio de uma coleção Documents. Ela exibe os nomes de todos os documentos abertos do Microsoft Visio na janela Imediato.

 
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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.