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

Код ниже добавляет пункт меню 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

введите здесь описание изображения


menuitem excel vba excel-2003
person st12    schedule 15.01.2013    source источник

Ответы (1)


arrow_upward
4
arrow_downward

Используйте свойство ShortcutText CommandbarButton:

.Controls("Custom1").ShortcutText = "ctrl+W"
person Doug Glancy    schedule 15.01.2013
comment
Это сложно, потому что CommandbarButton является подмножеством CommandbarControl и имеет еще несколько свойств. Если вы сомневаетесь, объявите это как кнопку, и вы сможете лучше видеть, что доступно. - person Doug Glancy; 15.01.2013