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.
Comentários
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Enviar e exibir comentários de