excel - Excel 菜单命令栏中的键盘快捷键

Question

下面的代码在 New... 之前添加了一个菜单项 Custom1。如何让分配给 CodeCustom1 的键盘快捷键(通过 Application.OnKey)与 Ctrl+N 完美右对齐？ p>

Sub menuItem_Create()
   With CommandBars("Worksheet menu bar").Controls("File")
      .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Custom1"
      .Controls("Custom1").OnAction = "CodeCustom1"
   End With
End Sub

Answer 1

使用 CommandbarButton 的 ShortcutText 属性:

.Controls("Custom1").ShortcutText = "ctrl+W"