title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
Fonts.Count property (Visio) |
vis_sdr.chm12113330 |
|
|
aa428ddf-2a3c-d0e9-231e-ce49e598daf7 |
06/08/2017 |
medium |
Returns the number of objects in a collection. Read-only.
expression.Count
expression A variable that represents a Fonts 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]