Текущая версия: 5.18.1.319
Home
Помощь. Как запускать отдельные функции без использования главной панели (через VBA)

Как запускать модули "горячими" клавишами

Данный пост посвящен тому, как облегчить себе жизнь.
А точнее как запускать отдельные модули eCUT используя сочетание клавиш - шорткаты.(например можно переназначить Ctrl+P на модуль резки).

Для начала необходимо закрыть корел и скопировать файл eCut13r2.gms (лежит в папке c:\eCut) в папку C:\Program Files\Corel\CorelDRAW Graphics Suite 13\Draw\GMS
Это для 13ой версии корела, если у Вас стоит другая - то действия аналогичные, только имена файлов слегка отличаются

Далее запускаем корел и идем в окно редактирования макросов: Tools/Visual Basic/Visual Basic Editor...

Слева выбираем макрос eCut_R2 из файла eCut(eCut13r2.gms)

 

Справа в открывшемся окне показан текст макроса - вот его мы и будем редактировать. Внимательно прочтите коментарии (зеленого цвета) - они помогут Вам в дальнейшем добавлять свои макросы.

Для начала определимся с модулем, который будем запускать. Например ПЕЧАТЬ!
Для этого, в самый конец макроса нужно добавить три строчки:

Public Sub eCUT_PRINT()
eCutR3 1
End Sub

Здесь eCUT_PRINT - это имя нашей функции, которую мы будем запускать позже, а цифра "1", стоящая сразу после eCutR3 - это и есть номер модуля печати. - полный список номеров модулей написан зеленым цветом.

После того, как Вы добавите эти строчки, сохраните изменения (значек дискеты на панели данного окна) и закройте данное окно.

Теперь необходимо назначить на запуск данной функции отдельное сочетание кнопок - это легко.
Заходим в: Tools/Customization/Commands
Справа в списке команд выбираем "Macros", в Списке макросов ищем нашу функцию eCut_R2.eCUT_PRINT. Далее переходим во вкладку ShortCut Keys и в соответствующем поле задаем значение сочетания клавиш для запуска модуля (незабудьте нажать кнопочку Assign)

После проделанных операций соглашаемся со всем и закрываем данное окно.
Для верности, я бы рекомендовал зайти в Tools/Save Settings As Default - чтобы сохранить настройки рабочей среды.

Ну вот и все - если Вы хотите добавить другую функцию для запуска - то проделать надо все тоже самое, только номер запускаемого модуля поменять.