Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задание горячих клавиш програмно в VBA / 4 сообщений из 4, страница 1 из 1
27.05.2008, 18:32
    #35338459
RA82
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание горячих клавиш програмно в VBA
Добрый день, есть небольшой макрос, который работает как "специальная вставка"- "значения"

Sub SpecialPaste()
Selection.PasteSpecial Paste:=xlPasteValues

End Sub

Подскажите, плиз, как можно здесь прописать запуск этого макроса с помощью горячих клавишь (например, "Ctrl-q"). Знаю, это можно выставить в параметрах макроса. Но такой вариант не подходит
...
Рейтинг: 0 / 0
27.05.2008, 18:48
    #35338510
Дык
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание горячих клавиш програмно в VBA
Код: plaintext
application.onkey "^p", "SpecialPaste"
...
Рейтинг: 0 / 0
27.05.2008, 20:02
    #35338632
ДмиДми
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание горячих клавиш програмно в VBA
Ну, вот ещё. "От щедрот, значит" (с)

Сервис -- Настройка -- вкладка Команды левое окошко Категории: Правка правое окошко Команды: Вставить значения

Тащить эту кнопочку на любую панель, лишь бы перед дропом был плюсик возле маркера.

Но это всё совершенно неинтересно. Интересно, с какого перепугу
"Знаю, это можно выставить в параметрах макроса. Но такой вариант не подходит"
?
...
Рейтинг: 0 / 0
28.05.2008, 10:50
    #35339389
RA82
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание горячих клавиш програмно в VBA
Нарисовал так:

Sub SpecialPaste()
Application.OnKey "^q", "SpecialPaste"
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

не работает, не видит макрос "C:\Document and Settings\...Книга1.xls'!SpecialPaste'.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задание горячих клавиш програмно в VBA / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]