Selection.Count Property (Visio)
Published: July 16, 2012
Returns the number of objects in a collection. Read-only.
This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Count property to iterate through a Documents collection. It displays the names of all the open Microsoft Visio documents in the Immediate window.
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