Поделиться через

Свойство Shapes.Count (Visio)

  • Статья

Возвращает количество объектов в коллекции. Только для чтения.

Синтаксис

expression. Рассчитывать

выражение: переменная, представляющая объект Shapes.

Возвращаемое значение

Длинное целое

Пример

Этот макрос 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 и обратная связь.