Fonts.Count Property (PowerPoint)
Returns the number of objects in the specified collection. Read-only.
Syntax
expression .Count
expression A variable that represents a Fonts object.
Return Value
Long
Example
This example closes all windows except the active window.
With Application.Windows
For i = 2 To .Count
.Item(2).Close
Next
End With