Как назначить горячую клавишу CommandBar'у?

[MAO_the_Doom]

Создал свой докер (или CommandBar) - ну как в иллюстраторе окошечки. Напихнул в него нужные мне кнопочки. Хочу вызывать его с помощью какой-нить горячей клавиши. Но никак не могу найти как эту горячую клавишу на это окошко назначить. Подскажите: где куда нажать?

 

[MAO_the_Doom]

Ответ: Как назначить горячую клавишу CommandBar'у?

Корелиты-корифеи, ответьте!!! Неужели никак?

 

[lev]

Ответ: Как назначить горячую клавишу CommandBar'у?

В данном коде я показываю тулбар с именем "Macros", ему можно присвоить горячую клавишу, назначить пункт меню и т.д., и т.п. Надеюсь дальше разберешься.

Private Function FindCommandBarByName(cName As String) As CommandBar
    Dim nIndex As Long
    Set FindCommandBarByName = Nothing
    For nIndex = 1 To Application.CommandBars.Count
        If (Application.CommandBars.Item(nIndex).Name = cName) Then
            Set FindCommandBarByName = Application.CommandBars.Item(nIndex)
            Exit Function
        End If
    Next nIndex
End Function

Private Sub show_bar(Name As String)
Dim oToolbar As CommandBar
Set oToolbar = FindCommandBarByName(Name)
If Not oToolbar Is Nothing Then
oToolbar.Visible = True
oToolbar.Enabled = True
End If
End Sub

Sub ShowMacrosToolbar()
show_bar "Macros"
End Sub

 

[MAO_the_Doom]

Ответ: Как назначить горячую клавишу CommandBar'у?

От, блин... легчей никак? Т.е. не предусмотрено стандартным способом прикрутить клавишу к пользовательскому тулбару - жаль...

 

[lev]

Ответ: Как назначить горячую клавишу CommandBar'у?

Тебе надо легко или тебе надо прикрутить?
Куда, уж, легче?