How to call a custom functon from a custom right click menu

[lawdy]

I have a need to call custom functions from a custom right click menu. I have searched & searched, but the internet don't seem to go beyond creating the custom menu. I need to call custom procedures. The following is my simple custom menu an following that is my simple custom procedure.



' simple custom shortcut menu
Function modRightClick_CreateMyShortcutMenu()
Dim cmbRightClick As Office.CommandBar
' Create the shortcut menu.
Set cmbRightClick = CommandBars.Add("myRightClick", msoBarPopup, False, False)
' Add custom command to call a procedure
With cmbRightClick
.Controls.Add , 1, modRightClick_testFunction, , False
End With
End Function

' simple custom procedure
Function modRightClick_testFunction()
' test procedure
MsgBox "Yes, it did work"
End Function

Right clicking an object does produce the short cut menu option. However, it just displays an empty box (which is what the instructions say will happen). But, clicking that empty box does not call the custom procedure. Help will be appreciated.

[amrut]

Try this -

Sub CreateMyShortcutMenu()
 Dim newButton As CommandBarControl,Dim cmbRightClick As Office.CommandBar
Set cmbRightClick = CommandBars.Add("myRightClick", msoBarPopup, False, False)
Set newButton = cmbRightClick.Controls.Add(msoControlButton, 1, , , False)
 
       With newButton
             .style = msoButtonIconAndCaption
            .Caption = "&Invoice"                                              'Menu caption
'            .Picture = CurrentProject.path & "\Images\Invoice.png"  ' Path to the picture
            .OnAction = "=Invoice()"
        End With
End Sub

To make this menu available in more than one forms, put the custom function in public module.

Public Function Invoice()
MsgBox "You clicked on Invoice"
End Function

[lawdy]

That worked like a charm. Thank you very much.