Shortcuts for toolbar buttons/view code of toolbar buttons

E

ericm

I would like to simply create a keyboard shortcut for some of the
toolbar buttons, namely the "Increase/Decrease Decimal" buttons.

I tried just recording them, but it records the action specific to the
recorded cell, -- i.e. if the cell that I record using the "Increase
Decimal" button on has 2 digits to the right of the decimal, the macro
will record

Selection.NumberFormat = "0.000"

The problem is, this recorded macro will set the number format to
three decimals, no matter how many decimal places are currently
displayed. I could do a workaround using if then statements, but this
made me wonder how I could either view the code that the toolbar
buttons use, or just assign a keyboard shortcut to existing toolbar
buttons.

Any ideas?
 
T

Tom Ogilvy

these would work on the activecell:

Dim cIncrease as CommandBarButton
Dim cDecrease as CommandBarButton
set cIncrease = CommandBars("Formatting").FindControl(ID:=398)
cIncrease.Execute
set cDecrease = CommandBars("Formatting").FindControl(ID:=399)
cDecrease.Execute
 
E

ericm

these would work on the activecell:

Dim cIncrease as CommandBarButton
Dim cDecrease as CommandBarButton
set cIncrease = CommandBars("Formatting").FindControl(ID:=398)
cIncrease.Execute
set cDecrease = CommandBars("Formatting").FindControl(ID:=399)
cDecrease.Execute

--
Regards,
Tom Ogilvy









- Show quoted text -

Works great, thanks.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top