Shapes.Count property (Visio)
Returns the number of objects in a collection. Read-only.
expression A variable that represents a Shapes object.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.