| Вопрос: Горячие клавиши на свое меню | Добавлено: 19.04.08 13:07 |
Автор вопроса:  gvserg
|
|
Здравствуйте!
Следующий вопрос: создал свой пункт меню, назначил "горячие" клавиши (которые работают в сочетании с Alt. Но получается что когда я нажимаю Alt+R то моя менюшка не раскрывается как стандартные, и чтобы выбрать пункт меню горячей клавише сначала меню нужно раскрыть Ентером или стрелкой вниз а потом эту горячую клавишу нажать. Собственно вопрос: не подскажете как можно это подправить так, чтобы я вызывал пункты меню просто нажав, например, Alt+R -> R? Спасибо. Sub AddNewMenu() Dim HelpMenu As CommandBarControl Dim NewMenu As CommandBarPopup Dim Menuitem As CommandBarControl Dim Submenuitem As CommandBarButton Set HelpMenu = CommandBars(1).FindControl(ID:=30010) If HelpMenu Is Nothing Then Set NewMenu = CommandBars(1).Controls.Add _ (Type:=msoControlPopup, _ temporary:=True) Else Set NewMenu = CommandBars(1).Controls.Add _ (Type:=msoControlPopup, _ Before:=HelpMenu.Index, _ temporary:=True) End If NewMenu.Caption = "T&rick Menu" Set Menuitem = NewMenu.Controls.Add _ (Type:=msoControlButton) With Menuitem .Caption = "&Rounding" .FaceId = 162 .OnAction = "RoundingMenu" End With Set Menuitem = NewMenu.Controls.Add _ (Type:=msoControlButton) With Menuitem .Caption = "&Accounting Format" .FaceId = 590 .OnAction = "AccountingFormat" End With Set Menuitem = NewMenu.Controls.Add _ (Type:=msoControlButton) With Menuitem .Caption = "&Divide or multiply" .FaceId = 590 .OnAction = "DivideMultiply" End With End Sub |
| Ответы | Всего ответов: 0 |
Страница: