Сочетания клавиш в Excel меню CommandBar

Question

Код ниже добавляет пункт меню Custom1 прямо перед New.... Как я могу получить сочетание клавиш, назначенное 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's ShortcutText имущество:

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