Application OnKey

[crakonit]

Hi All,

I have procedure that runs a macro based on a shortcut, many shortcuts in my case -works really well.

Application.OnKey "^h", "Macro1"

I'm trying to implement a CheckBox in the ribbon that tells me if the shortcuts is enabled or not, in a similar manner to "ActiveWindow.DisplayWorkbookTabs" where I can use the return of True or False status.

For the tick box to work successfully I am looking for a "is_enabled" or "shortcut_status" -How do I check when a shortcut has been assigned? Something along the lines...

if application.onkey "^h", "Macro1" then
shortcuts_are_anabled = true
else
shortcuts_are_anabled = false
end if

But obviously this code does not work.

Other than storing a value in the spreadsheet, is there a way to check if a shortcut has been assigned?

Thanks for your help!
Eric

 

[Gary's Student]

Since you already have code to assign/deassign the shortcut, just add a global variable to "remember" the status. In a standard module:

Public ControlH As Boolean

Sub AssignShortcut()
    Application.OnKey "^h", "Macro1"
    ControlH = True
End Sub

Sub DeAssignShortcut()
    Application.OnKey "^h"
    ControlH = False
End Sub

Sub Macro1()
    MsgBox "Hello World"
End Sub

 

[crakonit]

Perfect!!! -Thank you.