[2 days left] What’s wrong with your cloud strategy? Learn why multicloud solutions matter with Nimble Storage.Register Now

x
?
Solved

VBA Add Shortcut Keys to Dynamic Menu on the Userform

Posted on 2009-07-01
6
Medium Priority
?
403 Views
Last Modified: 2012-05-11
Does anyone know how to create shortcut Keys to the API dynamic menu on the Userform? For example: I have a item "New" on the menu and I want to assign the shortcut Ctrl+N to it and "Ctrl+N" will sit beside "New" on the menu.

I have attached my file

Thanks
API-Custom-Menu.xls
0
Comment
Question by:eyeweyew
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
6 Comments
 
LVL 22

Expert Comment

by:danaseaman
ID: 24762502
Append it to the Caption separated by vbTab and it should be recognized as a Shortcut.
"New" & vbTab & "Ctrl+N"
0
 

Author Comment

by:eyeweyew
ID: 24765749
danaseaman,

Ok, so now it aligns properly on the menu. Thanks for that!

But how can I assign the the actual short key so when the user press Ctrl with N, it will call a certain Sub.
0
 
LVL 22

Accepted Solution

by:
danaseaman earned 2000 total points
ID: 24766028
You need to store the accelerators somewhere and subclass WM_MENUCHAR message of your Menu.
This is just an example and will have to be modified depending on which subclass code you implement.



    Case WM_MENUCHAR
         ' Check that this is my menu:
         lFlag = wParam \ &H10000
         If ((lFlag And MF_SYSMENU) <> MF_SYSMENU) Then
            hMenu = lParam
            iChar = (wParam And &HFFFF&)
            Debug.Print "WM_MENUCHAR", hMenu, Chr$(iChar)
            ' See if this corresponds to an accelerator on the menu:
            lR = pvParseMenuChar(hMenu, iChar)
            If lR > 0 Then
               bHandled = True
               lReturn = lR
            End If
         End If
         If Not bHandled Then
            'ISubclass_WindowProc = CallOldWindowProc(hWnd, iMsg, wParam, lParam)
            lReturn = ssc_CallOrigWndProc(lng_hWnd, uMsg, wParam, lParam)
         End If
 
Private Function pvParseMenuChar( _
   ByVal hMenu As Long, _
   ByVal iChar As Long) As Long
 
   Dim lPos             As Long
   Dim i                As Long
   Dim iModifier        As Long
 
   iModifier = GetShiftMask
   Debug.Print "iChar Before", iChar
   If iChar > 96 Then
      iChar = iChar - 32 'LCase to UCase
   ElseIf iChar < 65 Then
      iChar = iChar + 64 'Ctrl to Ucase
   End If
 
   Debug.Print "iChar After", iChar
 
   For i = 0 To UBound(MenuID)
      If MenuID(i).hMenu = hMenu Then
         If MenuID(i).ShortcutKey = iChar Then
            If MenuID(i).ShortcutModifier = iModifier Then
               pvParseMenuChar = &H20000 + MenuID(i).Position - 1
               Exit Function
            End If
         End If
      End If
   Next
 
End Function

Open in new window

0
 

Author Comment

by:eyeweyew
ID: 24766933
danaseaman:

Don't really understand how to implement this. Could you provide me a simple macro which has this in it? So I can try to figure out how it works.

Your help would be appreciated!
0
 
LVL 22

Expert Comment

by:danaseaman
ID: 24767055
For subclassing you can use the one from VbAccelerator.com

SubClassing With The SSubTmr6 DLL
http://www.cpearson.com/excel/SubclassingWithSSubTmr6.htm 

When Popmenu is created you will need to store the handle and shortcuts in an array or collection.
I store the Ascii character value, Shift state, and menu item position which is later searched when you receive msg WM_MENUCHAR.
Note: GetShiftMask gets current kybd shift state and that is compared to shift state of your accelerator.

I don't have plug-in code that will work in Excel.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes a serious pitfall that can happen when deleting shapes using VBA.
This article describes how you can use Custom Document Properties to store settings and other information in your workbook so that they will be available the next time you open the workbook.
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

656 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question