Compartilhar via

Propriedade UIObject.AccelTables (Visio)

  • Artigo

Retorna a coleção AccelTables de um objeto UIObject . Somente leitura.

Sintaxe

expression. AccelTables

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

Valor de retorno

AccelTables

Comentários

Observação

A partir do Visio 2010, a interface do usuário do Microsoft Office Fluent (interface do usuário) substituiu o sistema anterior de menus em camadas, barras de ferramentas e painéis de tarefas. Objetos VBA e membros que você usou para personalizar a interface do usuário em versões anteriores do Visio ainda estão disponíveis no Visio, mas funcionam de forma diferente.

Se um objeto UIObject representar itens de menu e aceleradores (por exemplo, se você usou a propriedade BuiltInMenus de um objeto Application para recuperar o objeto UIObject), sua coleção AccelTables representa tabelas de teclas de aceleração para esse objeto UIObject.

Para recuperar aceleradores para um determinado contexto de janela, por exemplo, a janela de desenho, use a propriedade ItemAtID de uma coleção AccelTables. Se um contexto de janela não incluir aceleradores, ele não terá nenhuma coleção AccelTables. IDs de contexto de janela válidas são declaradas em VisUIObjSets na biblioteca de tipos do Visio.

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como usar a propriedade AccelTables para excluir uma tecla de aceleração de um menu interno.

Para restaurar os menus internos do Microsoft Visio depois de executar essa macro, chame o método ThisDocument.ClearCustomMenus.

 
Public Sub AccelTables_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoAccelTable As Visio.AccelTable 
 Dim vsoAccelItems As Visio.AccelItems 
 Dim vsoAccelItem As Visio.AccelItem 
 Dim intCounter As Integer 
 
 'Retrieve the UIObject object for the copy of the built-in menus. 
 Set vsoUIObject = Visio.Application.BuiltInMenus 
 
 'Set vsoAccelTable to the drawing menu set. 
 Set vsoAccelTable = vsoUIObject.AccelTables.ItemAtID(visUIObjSetDrawing) 
 
 'Retrieve the accelerator items collection. 
 Set vsoAccelItems = vsoAccelTable.AccelItems 
 
 'Retrieve the accelerator item for the Visual Basic Editor. 
 'To do this, we must iterate through the collection 
 'and locate the item we want to manipulate. 
 'The item can be identified either by checking 
 'the CmdNum property or by checking for the specific key. 
 'Because checking for the key requires looking at the Alt, 
 'Control, Shift, and Key properties, it is better to use the 
 'CmdNum property. Because we retrieved the built-in menus, 
 'we know that we can find the accelerator. 
 For intCounter = 0 To vsoAccelItems.Count - 1 
 Set vsoAccelItem = vsoAccelItems.Item(intCounter) 
 If vsoAccelItem.CmdNum = Visio.visCmdToolsRunVBE Then 
 Exit For 
 
 End If 
 Next intCounter 
 
 'Delete the accelerator. 
 vsoAccelItem.Delete 
 
 'Tell Visio to use the new UI. 
 ThisDocument.SetCustomMenus vsoUIObject 
 
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.