How to assign keyboard shortcut to existing Commandbar controls
 

Hi,

I wish to assign a keyboard shortcut (eg CTRL + SHIFT + D) to the command
control id 398, which changes the formatting of a cell to show another
decimal place.

Could you please show me how it's done?

Many thanks in advance!

How to assign keyboard shortcut to existing Commandbar controls
 

Hi Superjas,

Copy the following macro into a standard module in your Personal.xls
workbook.

'=============
Public Sub IncreaseDecimals()
Application.CommandBars("Formatting"). _
FindControl(ID:=398).Execute
End Sub
'<<=============

Then, either assign the shortcut key combination to the macro manually or
try:

'=============
Public Sub Tester()
Const WbName As String = "Personal.xls" '<<==== CHANGE
Application.MacroOptions Macro:=WbName & "!IncreaseDecimals", _
Description:="", ShortcutKey:="D"
End Sub
'<<=============



---
Regards,
Norman


"superjas" wrote in message
...
Hi,

I wish to assign a keyboard shortcut (eg CTRL + SHIFT + D) to the command
control id 398, which changes the formatting of a cell to show another
decimal place.

Could you please show me how it's done?

Many thanks in advance!

How to assign keyboard shortcut to existing Commandbar control
 

Hi Norman,

That's awesome, exactly what I was after! Thankyou very much!!

Cheers!