Where are user keyboard shortcuts stored

[nbrcrunch]

I tried searching this website for "shortcuts file" or "shortcuts storage" and found nothing.

When writing VBA, I would like to specify a shortcut. I've noticed on recorded macros the line that Excel puts in that is just a comment line acknowledging the shortcut exists. But where is this stored? Or at least, how do I create one myself without having to use the Macro menu option?

 

[nbrcrunch]

Andrew,

I took your snippet of code and pasted it into my previous example.
When I ran it, I got error 1004, Method....Failed.

Here is what I have:
____________________

Sub hello()

Application.MacroOptions Macro:="MyMacro", HasShortcutKey:=True, ShortcutKey:="Z"

MsgBox ("Hello Word")

End Sub

 

[Andrew Poulsom]

That's probably because you don't have a Macro called "MyMacro". My snippet was just a generic example - change Macro argument so that it's the name of your Macro.

 

[parry]

Andrew,

I took your snippet of code and pasted it into my previous example.
When I ran it, I got error 1004, Method....Failed.

Here is what I have:
____________________

Sub hello()

Application.MacroOptions Macro:="MyMacro", HasShortcutKey:=True, ShortcutKey:="Z"

MsgBox ("Hello Word")

End Sub

Hi, the code does work. The issue is that you are trying to assign a description & a shortcut key to a non-existent macro. The macro called MyMacro doesnt exist.

Try this instead...

Sub hello()
Application.MacroOptions Macro:="hello", HasShortcutKey:=True, ShortcutKey:="Z"
MsgBox ("Hello Word")
End Sub

 

[Ivan F Moala]

The Short cut Keys or Accellerator key for macros are STORED
within the Macro routines code.....you just don't see it, as it is an Attribute of the Modules code......

The Attribute for short cut key Ctrl + z is

Attribute YourMacroName.VB_ProcData.VB_Invoke_Func = "z\n14"

Where YourMacroname = the name of your Macro
z in "z\n14" is the short cut letter

A capital letter in "S\n14" denotes a Ctrl + Shift + s key combination

 

[Andrew Poulsom]

The Short cut Keys or Accellerator key for macros are STORED
within the Macro routines code.....you just don't see it, as it is an Attribute of the Modules code......

The Attribute for short cut key Ctrl + z is

Attribute YourMacroName.VB_ProcData.VB_Invoke_Func = "s\n14"

Where YourMacroname = the name of your Macro
s in "s\n14" is the short cut letter

A capital letter in "S\n14" denotes a Ctrl + Shift + s key combination

Ivan,

So is there some code that returns the ShortcutKey assigned to a Macro?

 

[Ivan F Moala]

I'm not 100% sure...haven't really played with it much...but I guess one way would be to Export the code and grab the text strings.......

 

[nbrcrunch]

Ivan, in your very informative msg below, you say that the attribute for Ctrl-z is... "s/n14"

But then the followup reply indicates that is for the letter S. I am confused about the syntax "s/n14" What is the breakdown of that syntax.

Also, I tried copying the snippet to my code and got an "expected expression" compile error:

Sub hello()
Application.MacroOptions Macro:="hello", HasShortcutKey:=True, ShortcutKey:="Z"
Attribute hello.VB_ProcData.VB_Invoke_Func = "s\n14"
MsgBox ("Hello Word")
End Sub

I got the 2nd line working as far as assignment goes but I'm not sure what the Attribute statement is supposed to do.

The Short cut Keys or Accellerator key for macros are STORED
within the Macro routines code.....you just don't see it, as it is an Attribute of the Modules code......

The Attribute for short cut key Ctrl + z is

Attribute YourMacroName.VB_ProcData.VB_Invoke_Func = "s\n14"

Where YourMacroname = the name of your Macro
s in "s\n14" is the short cut letter

A capital letter in "S\n14" denotes a Ctrl + Shift + s key combination

 

[Ivan F Moala]

I have developed an Addin to get the short cut keys if you are interested .....

 

[Ivan F Moala]

For code example see here;

http://makeashorterlink.com/?Q18E23557

 

[headtoadie]

nbrcruch, if you have a macro that you want to assign a shortcut key to you can use the OnKey method. For syntax just search the help files in the VBA editor for OnKey, there is a whole page on the usage.


Example from the help file:
This example assigns "InsertProc" to the key sequence CTRL+PLUS SIGN and assigns "SpecialPrintProc" to the key sequence SHIFT+CTRL+RIGHT ARROW.

Application.OnKey "^{+}", "InsertProc"
Application.OnKey "+^{RIGHT}", "SpecialPrintProc"

This example returns SHIFT+CTRL+RIGHT ARROW to its normal meaning.

Application.OnKey "+^{RIGHT}"




HT