Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt die Masters-Auflistung für die Schablone eines Dokuments zurück. Schreibgeschützt.
Syntax
Ausdruck. Meister
Ausdruck Eine Variable, die ein Document-Objekt darstellt.
Rückgabewert
Master
Hinweise
Wenn Ihre Visual Studio-Lösung die Referenz Microsoft.Office.Interop.Visio enthält, wird diese Eigenschaft den folgenden Typen zugeordnet:
- Microsoft.Office.Interop.Visio.IVDocument.Masters
Beispiel
Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der Masters-Eigenschaft alle Master-Shapenamen im aktuellen Dokument im Direktfenster ausgeben.
Bevor Sie dieses Makro ausführen, öffnen Sie eine Microsoft Visio-Zeichnungen, und ziehen Sie mindestens ein Shape aus einer Schablone auf das Zeichenblatt.
Public Sub Masters_Example()
Dim intCounter As Integer
Dim intMasterCount As Integer
Dim vsoApplication As Visio.Application
Dim vsoCurrentDocument As Visio.Document
Dim vsoMasters As Visio.Masters
Set vsoApplication = GetObject(, "visio.application")
If vsoApplication Is Nothing Then
MsgBox "Microsoft Office Visio is not loaded"
Exit Sub
End If
Set vsoCurrentDocument = vsoApplication.ActiveDocument
If vsoCurrentDocument Is Nothing Then
MsgBox "No stencil is loaded"
Exit Sub
End If
Set vsoMasters = vsoCurrentDocument.Masters
Debug.Print "Masters in document : "; vsoCurrentDocument.Name
intMasterCount = vsoMasters.Count
If intMasterCount > 0 Then
For intCounter = 1 To intMasterCount
Debug.Print " "; vsoMasters.Item(intCounter).Name
Next intCounter
Else
Debug.Print " No masters in document"
End If
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.