Propiedad Document.MasterShortcuts (Visio)

Artículo
04/07/2023

Devuelve la colección MasterShortcuts de una galería de símbolos de documento. Solo lectura.

Sintaxis

expresión. MasterShortcuts

Expresión Variable que representa un objeto Document .

Valor devuelto

MasterShortcuts

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar la propiedad MasterShortcuts para obtener la colección de accesos directos de patrón en una galería de símbolos de documento.

Antes de ejecutar este ejemplo, reemplace la referencia a StencilWithShortcuts.vss por una referencia a un archivo .vss válido que contenga accesos directos maestros.

Para crear una galería de símbolos que incluya accesos directos de patrón:

Abra una galería de símbolos existente. (En la ventana Formas , haga clic en Más formas, haga clic en Abrir galería de símbolos y, a continuación, haga doble clic en una galería de símbolos).
Haga clic con el botón derecho en un patrón en la galería de símbolos y haga clic en Copiar.
Cree una galería de símbolos. (En la ventana Formas , haga clic en Más formasy, a continuación, haga clic en Nueva galería de símbolos (unidades de EE. UU.) o Nueva galería de símbolos (métrica).)
Haga clic con el botón derecho en la nueva galería de símbolos y haga clic en Pegar acceso directo.
Guarde la nueva galería de símbolos. (Haga clic con el botón derecho en su barra de título y haga clic en Guardar).

En el código siguiente, reemplace StencilWithShortcuts.vss por el nombre de la nueva galería de símbolos.

 
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.

Share via