Нестандартные горячие клавиши для макросов

[Alonzombie]

Поискал через поиск, но не нашел ответ.
Подскажите, пожалуйста, где можно посмотреть, почитать или приведите пример, как можно с помощью VBA назначить нестандартные горячие клавиши на выполнение макроса.
Например, мне надо не команду ctrl+d, а команда ctrl+shift+d.
Ну, в общем, хотел бы понять, как прописать горячие клавиши не в настройках макроса, а в VBA.
Заранее спасибО!

[EducatedFool]

Как-то так:

Код: Выделить всё

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Workbook_Open()
    Application.OnKey "^+r", "SaveClipboardToBMP"         [color=green]' Ctrl + Shift + R[/color]
    Application.OnKey "^r", "SaveRangeToBMP"              [color=green]' Ctrl + R[/color]
    Application.OnKey "^e", "SaveRangeToEMF"              ' Ctrl + E
    Application.OnKey "^+f", "GetFormulaFromSelection"    [color=green]' Ctrl + Shift + F[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Пропишите этот код в модуле ЭтаКнига файла, содержащего макросы.

Для получения более подробной информации поставьте курсор в коде на OnKey, и нажмите F1

[Alonzombie]

Спасибо! Понял! Буду пробовать!