Свойство Connects.Count (Visio)
Возвращает количество объектов в коллекции. Только для чтения.
expression. Рассчитывать
Выражение Переменная, представляющая объект Connects .
Длинное целое
Этот макрос Microsoft Visual Basic для приложений (VBA) показывает, как использовать свойство Count для выполнения итерации по коллекции Documents. В окне Интерпретация отображаются имена всех открытых документов Microsoft Visio.
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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.