Document.Masters-Eigenschaft (Visio)

Artikel
10/16/2024

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.

Freigeben über