Document.MasterShortcuts-Eigenschaft (Visio)

Artikel
04/07/2023

Gibt die MasterShortcuts-Auflistung für eine Dokumentschablone zurück. Schreibgeschützt.

Syntax

Ausdruck. MasterShortcuts

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Rückgabewert

MasterShortcuts

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mithilfe der MasterShortcuts-Eigenschaft die Auflistung von Master-Shape-Verknüpfungen in einer Dokumentschablone abrufen.

Ersetzen Sie vor dem Ausführen dieses Beispiels den Verweis auf StencilWithShortcuts.vss durch einen Verweis auf eine gültige VSS-Datei, die Masterverknüpfungen enthält.

So erstellen Sie eine Schablone, die Master-Shape-Verknüpfungen enthält

Öffnen Sie eine vorhandene Schablone. (Klicken sie im Fenster Shapes auf Weitere Shapes, klicken Sie auf Schablone öffnen, und doppelklicken Sie dann auf eine Schablone.)
Klicken Sie mit der rechten Maustaste auf ein Master-Shape in der Schablone, und klicken Sie auf Kopieren.
Erstellen Sie eine neue Schablone. (Klicken Sie im Fenster Shapes auf Weitere Shapes, und klicken Sie dann auf Neue Schablone (US-Einheiten) oder Neue Schablone (Metrisch).)
Klicken Sie mit der rechten Maustaste auf die neue Schablone, und klicken Sie auf Verknüpfung einfügen.
Speichern Sie die neue Schablone. (Klicken Sie mit der rechten Maustaste auf seine Titelleiste, und klicken Sie auf Speichern.)

Ersetzen Sie im folgenden Code StencilWithShortcuts.vss durch den Namen Ihrer neuen Schablone.

 
Public Sub MasterShortcuts_Example() 
  
    Dim vsoMasterShortcuts As Visio.MasterShortcuts  
    Dim vsoMasterShortcut As Visio.MasterShortcut  
    Dim vsoStencil As Visio.Document  
 
    'Get a stencil that contains some shortcuts.  
    Set vsoStencil = Application.Documents ("StencilWithShortcuts.vss ")  
    Set vsoMasterShortcuts = vsoStencil.MasterShortcuts 
  
    For Each vsoMasterShortcut In vsoMasterShortcuts 
  
        'Print some of the more common properties of a  
        'master shortcut to the Immediate window.  
        With vsoMasterShortcut  
            Debug.Print .AlignName  
            Debug.Print .DropActions  
            Debug.Print .IconSize  
            Debug.Print .ID  
            Debug.Print .Index  
            Debug.Print .Name  
            Debug.Print .NameU  
            Debug.Print .ObjectType  
            Debug.Print .Prompt  
            Debug.Print .ShapeHelp  
            Debug.Print .Stat  
            Debug.Print .TargetDocumentName 
  
            'Original master where shortcut points  
            Debug.Print.TargetMasterName  
 
        End With          
 
    Next  
 
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