Excel菜单CommandBar中的键盘快捷键

Question

下面的代码在 New ... 之前添加了一个菜单项 Custom1 。如何才能将分配给 CodeCustom1 的键盘快捷键（通过Application.OnKey）与 Ctrl + N 正确对齐？

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"