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.