Compartilhar via


Propriedade Shapes.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 Formas.

Valor de retorno

Longo

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.