Fonts.Count-Eigenschaft (Visio)Fonts.Count Property (Visio)

Gibt die Anzahl der Objekte in einer Auflistung zurück.Returns the number of objects in a collection. Schreibgeschützt.Read-only.

SyntaxSyntax

expression.expression. Count

Ausdruck Eine Variable, die ein Fonts -Objekt darstellt.expression A variable that represents a Fonts object.

RückgabewertReturn value

IntegerInteger

BeispielExample

Microsoft Visual Basic für Applikationen (VBA)-Makro zeigt, wie Sie die Count -Eigenschaft, um eine Documents -Auflistung durchlaufen.This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Count property to iterate through a Documents collection. Es werden die Namen aller geöffneten Microsoft Visio-Dokumente im Direktfenster angezeigt.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