Freigeben über

Ändern der Zugriffstaste und beschriftung einer Befehlsschaltfläche

  • Artikel

This example changes the Accelerator and Caption properties of a CommandButton each time the user clicks the button by using the mouse or the accelerator key. Das Click-Ereignis enthält den Code zum Ändern der Eigenschaften Accelerator und Caption .

Um dieses Beispiel auszuprobieren, fügen Sie den Code in den Skript-Editor eines Formulars ein, das ein CommandButton mit dem Namen CommandButton1 enthält. To run the code you need to open the form so the Open event will activate.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.