title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
Pages.Count property (Visio) |
vis_sdr.chm11013330 |
|
|
1e240cc4-07f3-ceb1-7eb3-7a6d5071f630 |
06/08/2017 |
medium |
Returns the number of objects in a collection. Read-only.
expression.Count
expression A variable that represents a Pages object.
Integer
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
[!includeSupport and feedback]