Propriedade Document.MasterShortcuts (Visio)
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.