通过

更改命令按钮的快捷键和标题

  • 项目

本示例在用户每次使用鼠标或快捷键单击按钮时更改 CommandButton 的 Accelerator 和 Caption 属性。 Click 事件包含用于更改 Accelerator 和 Caption 属性的代码。

若要尝试本示例，请将代码粘贴到包含名为“CommandButton1”的 CommandButton 的窗体的“脚本编辑器”中。 若要运行本代码，需要打开该窗体，以便激活 Open 事件。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。