Exemplo do evento Click, do controle CommandButton, das propriedades Accelerator, Caption

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 Click contém o código para alterar as propriedades Accelerator e Caption.

Para experimentar este exemplo, cole o código na seção Declarações de um formulário que contém um CommandButton chamado CommandButton1.

Private Sub UserForm_Initialize() 
 CommandButton1.Accelerator = "C" 
 'Set Accelerator key to COMMAND + C 
End Sub 
 
Private Sub CommandButton1_Click () 
 If CommandButton1.Caption = "OK" Then 
 'Check caption, then change it. 
 CommandButton1.Caption = "Clicked" 
 CommandButton1.Accelerator = "C" 
 'Set Accelerator key to COMMAND + C 
 Else 
 CommandButton1.Caption = "OK" 
 CommandButton1.Accelerator = "O" 
 'Set Accelerator key to COMMAND + 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.