VBA - клик по кнопке с нажатой клавишей

[Oleg_Sh]

На тулбаре есть кнопка запускающая определенный макрос на VB. Можно ли как-то определить из этого макроса была ли нажата клавиша при клике по кнопке.

 

[Alexxxander]

Ответ: VBA - клик по кнопке с нажатой клавишей

На тулбаре есть кнопка запускающая определенный макрос на VB. Можно ли как-то определить из этого макроса была ли нажата клавиша при клике по кнопке.

Видимо нужно отслеживать Shift, Ctrl, Alt?
Тогда через API:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
Function CtrlKey() As Boolean
    CtrlKey = (GetAsyncKeyState(vbKeyControl) And &H8000)
End Function
Function ShiftKey() As Boolean
    ShiftKey = (GetAsyncKeyState(vbKeyShift) And &H8000)
End Function
Function AltKey() As Boolean
    AltKey = (GetAsyncKeyState(vbKeyMenu) And &H8000)
End Function

И в нужном месте:

 If CtrlKey() Then ...

 

[Oleg_Sh]

Ответ: VBA - клик по кнопке с нажатой клавишей

Спасибо, попробую