Alterar o acelerador e a legenda de um botão de comando

Este exemplo altera as propriedades Acelerador e Legenda de um CommandButton sempre que o usuário clica no botão usando o mouse ou a chave do acelerador. O evento Clique contém o código para alterar as propriedades Acelerador e Legenda .

Para experimentar este exemplo, cole o código no Editor de Scripts de um formulário contendo um CommandButton denominado CommandButton1. Para executar o código, você precisa abrir o formulário para que o evento Open seja ativado.

Dim CommandButton1 
 
Sub Item_Open() 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").CommandButton1 
 CommandButton1.Accelerator = "C" 'Set Accelerator key to ALT + C 
End Sub 
 
Sub CommandButton1_Click () 
 If CommandButton1.Caption = "OK" Then 'Check caption, then change it. 
 CommandButton1.Caption = "Clicked" 
 CommandButton1.Accelerator = "C" 'Set Accelerator key to ALT + C 
 Else 
 CommandButton1.Caption = "OK" 
 CommandButton1.Accelerator = "O" 'Set Accelerator key to ALT + O 
 End If 
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.