☰

Как назначить сочетание клавиш для макроса PowerPoint

tag-icon • tag-icon vba microsoft-powerpoint-2013
Как назначить сочетание клавиш для макроса PowerPoint

Я написал код VBA для PowerPoint, чтобыперейти к определенному слайду во время редактированияслайды.

Однако мне не удалось привязать это к сочетанию клавиш (я хотел привязать его к Ctrl+G).

В Excel есть Optionsкнопка, когда вы создаете новый макрос, но в PowerPoint ее, к сожалению, нет. Смотрите изображение ниже.
создать_макрос:_диалог_excel_vs_powerpoint

Теперь я перетащил макрос на панель быстрого доступа (QAT) для быстрого доступа - что мне не нравится. Чтобы сохранить его согласованность с Excel, я хочу использовать общую комбинацию клавиш (особенно Ctrl+G) для перехода к определенному слайду

решение1

Вы можете назначить макросы на ALT + цифру (Alt + 1, Alt + 2, ...)

В PowerPoint перейдите в раздел «Настроить панель быстрого доступа».

Настройте панель быстрого доступа

Выберите «Больше рекомендаций»

В верхней средней части в разделе «Выбрать команды из» измените «Популярные команды» на «Макросы».

Выберите макрос, который вы хотите использовать, и нажмите «Добавить >>».

Теперь измените порядок списка справа с помощью кнопок вверх/вниз справа.

Если вы поместите свой макрос на 2-е место (например), то после нажатия «ОК» вы сможете использовать его с помощью ALT + 2

Наслаждаться

решение2

PowerPoint, к сожалению, этого не поддерживает. Существует по крайней мере один коммерческий AddOn, который добавляет возможность сочетания клавиш (см.эта почта).

В противном случае вы можете использовать такой инструмент для создания скриптов, какAutoHotkey(Только для Windows) для отправки последовательности нажатий клавиш, которые вызовут ваш макрос. Например, этот скрипт будет вызывать макрос с именем "setFontCalibri" всякий раз, когда нажимается Ctrl-G:

; Ctrl-g: Execute setFontCalibri macro in PowerPoint
^g::    
    send {f10}
    Sleep, 50
    send v
    Sleep, 50
    send pm
    Sleep, 50
    send setFontCalibri
    send {enter}
    send {f10} ; reactivate the Home Tab in the ribbon
    Sleep, 50
    send l
    send {enter}
    return

Просто убедитесь, что вкладка «Разработчик» видна на ленте, и это должно работать... Строки Sleepнеобходимы, иначе нажатия клавиш будут отправляться слишком быстро. Но вы можете попробовать изменить 50 мс на большее или меньшее значение, в зависимости от отзывчивости вашего компьютера.

Инструкции по запуску (и, при необходимости, компиляции) скрипта можно найти на сайте Autohotkey.

Примечание: комбинацию клавиш для выполнения макроса необходимо подтвердить, поскольку я использую неанглоязычную версию MS-Office 2010, но ядуматьон не меняется от языка (или версии) к языку, поэтому может работать в том виде, в котором он есть.

Связанный контент