Propriedade Document.MasterShortcuts (Visio)

Artigo
04/07/2023

Retorna a coleção MasterShortcuts para um estêncil de documento. Somente leitura.

Sintaxe

expressão. MasterShortcuts

Expressão Uma variável que representa um objeto Document .

Valor de retorno

MasterShortcuts

Exemplo

Essa macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade MasterShortcuts para obter a coleção de atalhos de mestre no estêncil de um documento.

Antes de executar este exemplo, substitua a referência a StencilWithShortcuts.vss por uma referência a um arquivo .vss válido que contém atalhos mestres.

Para criar um estêncil que contenha atalhos de mestre:

Abra um estêncil existente. (Na janela Formas, clique em Mais Formas, clique em Abrir Estêncil e clique duas vezes em um estêncil.)
Clique com o botão direito do mouse em um mestre no estêncil e clique em Copiar.
Crie um novo estêncil. (Na janela Formas, clique em Mais Formas e clique em Novo Estêncil (Unidades dos EUA) ou em Novo Estêncil (Métrico).)
Clique com o botão direito do mouse no novo estêncil e clique em Colar Atalho.
Salve o novo estêncil. (Clique com o botão direito do mouse em sua barra de títulos e clique em Salvar.)

No código a seguir, substitua StencilWithShortcuts.vss pelo nome do novo estêncil.

 
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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Compartilhar via