Горячая клавиша для Command button

[konstantin1990]

Всем доброго времени суток! Подскажите пожалуйста есть ли возможность создать горячую клавишу для command button. Например на форме есть несколько textbox и одна command button, при нажатии на кнопку F10 чтобы происходило событие command button_Click независимо от того где стоит фокус. Написал вот такой код небольшой:
Private Sub text box1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 121 Then command button_Click
End Sub

но это не то, потому что очень много текст боксов планируется на форме.

Заранее спасибо.

[Viktorkv]

В экселе можно каждому макросу задать горячую клавишу. В каком офисе работаете?
Вот ссылка на страницу как это делается
http://macros-vba.ru/makrosy/excel/1...akrosa-v-excel

[konstantin1990]

Работаю в 2010 офиссе, но пишу в VBA сейчас простенькую оболочку) мне надо в VBA задать command button горячую клавишу F10 например.

[doober]

Сообщение от Viktorkv

В экселе можно каждому макросу задать горячую клавишу.

В конкретном случае работать не будет потому,что фокус будет на форме.

[IgorGO]

Вы хотите навесить горячую клавишу на кнопку
задам вопрос:
-- а для чего?
отвечу на этот вопрос:
-- а чтобы сработал макрос CommandButton1_Click

Вы из религиозных убеждений или еще по каким-то соображениям не можете воспользоваться советом Viktorkv, написать сложнейший макрос

Sub VeryDifficultMacros
  ' скопипастить сюда то, что написано в CommandButton1_Click
end sub

навесить на него горячую кнопку и попучить в итоге абсолютно аналогичный результат. что мешает сделать так?

[Viktorkv]

Можно использовать свойство Caption, чтобы создать горячие клавиши для кнопок, добавляя амперсанд (&) перед символом, который Вы хотите использовать как горячую клавишу. Например, чтобы создать горячую клавишу для заголовка "Print" добавляется амперсанд перед символом "P": "&Print". Во время выполнения, символ "P" будет подчеркнут, и пользователь может выбирать кнопку, нажимая ALT+P.

100%, что вы не сможете назначить клавишу F10, поскольку в эксель эта кнопка уже используется

[IgorGO]

или еще вариант:
для нужной Вам кнопки свойство Default ставите True, кнопка будет срабатывать на нажатие Enter

[konstantin1990]

Сообщение от IgorGO

или еще вариант:
для нужной Вам кнопки свойство Default ставите True, кнопка будет срабатывать на нажатие Enter

Хороший вариант. Вот программка сама. На интер кнопка Ок отзывается. А на Ф10 если бы отзывалась было бы круто))) Или это не вариант? Я в программировании не очень силен. Так для работы делаю