ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Assign ShortCut-key To Toggle VBA-toolbar? (https://www.excelbanter.com/excel-programming/327722-assign-shortcut-key-toggle-vba-toolbar.html)

SIGE

Assign ShortCut-key To Toggle VBA-toolbar?
 
Hi There,

Is it possible to toggle a Toolbar via a shortcut combination?

Like:
Ctrl + Shift + 0 pops up the VBA-toolbar (or a custom ...)

Sige

Tom Ogilvy

Assign ShortCut-key To Toggle VBA-toolbar?
 
Look at Application.Onkey

just assign a macro to the key combination that does what you want.

--
Regards,
Tom Ogilvy


"SIGE" wrote in message
om...
Hi There,

Is it possible to toggle a Toolbar via a shortcut combination?

Like:
Ctrl + Shift + 0 pops up the VBA-toolbar (or a custom ...)

Sige




SIGE

Assign ShortCut-key To Toggle VBA-toolbar?
 
Hi Tom,

I thought there was a way to do it directly but ... I got out of the
woods with this:

Sub LaunchVBAToolbar()
Application.CommandBars("Visual Basic").Visible = True
End Sub

Sub ShortCutToVBAToolBar()
Application.OnKey "^+{v}", "LaunchVBAToolbar" 'ctrl + shift + v
End Sub

Sub ResetShortCutVBAToolbar()
' To revert to default keypress result
Application.OnKey "+^{v}", ""
End Sub

Thanks, Sige


"NOSPAM" to be removed for direct mailing...

*** Sent via Developersdex http://www.developersdex.com ***

Chip Pearson

Assign ShortCut-key To Toggle VBA-toolbar?
 
' To revert to default keypress result
Application.OnKey "+^{v}", ""


This does not revert to the default keypress result. Instead, it
makes the keypress action do nothing at all. To revert to the
default, omit the second argument to OnKey.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"SIGE" wrote in message
...
Hi Tom,

I thought there was a way to do it directly but ... I got out
of the
woods with this:

Sub LaunchVBAToolbar()
Application.CommandBars("Visual Basic").Visible = True
End Sub

Sub ShortCutToVBAToolBar()
Application.OnKey "^+{v}", "LaunchVBAToolbar" 'ctrl + shift
+ v
End Sub

Sub ResetShortCutVBAToolbar()
' To revert to default keypress result
Application.OnKey "+^{v}", ""
End Sub

Thanks, Sige


"NOSPAM" to be removed for direct mailing...

*** Sent via Developersdex http://www.developersdex.com ***




SIGE

Assign ShortCut-key To Toggle VBA-toolbar?
 
Ooops...

Though Standard-wise Excel has nothing set on the shortcut: Ctrl+Shift+v

So "normally..." it would not make much difference!
-I think...-

Check:
http://www.cpearson.com/excel/KeyboardShortcuts.htm

Thanks a lot Chip!
Sige

"NOSPAM" to be removed for direct mailing...

*** Sent via Developersdex http://www.developersdex.com ***


All times are GMT +1. The time now is 03:48 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com