how to extend drop down menu in excel 2016

' Provide the user the ability to click a menu option to execute a function Controls.Add(Type:=msoControlEdit)Ĭombo.Caption = 'Lookup Text:' ' Add a label the user will seeĬombo.OnAction = 'getText' ' Add the name of a function to call ' Provide the user the ability to input text using the msoControlEdit type With CommandBars.Add(Name:='MyListControlContextMenu', Position:=msoBarPopup) ' or if it has not been defined in the past, the error should be ignoredĬommandBars('MyListControlContextMenu').Delete ' Since it may have been defined in the past, it should be deleted, ' Note: This requires a reference to Microsoft Office Object Library

Since at this point the Command Bar MyListControlContextMenu is undefined, I define the Menu in a separate module as follows: Public Sub SetUpContextMenu() ' See if the right mouse button was clickedĬommandBars('MyListControlContextMenu').ShowPopup ' changed contextually here, but it could be further expanded to accomplish this ' Note: This really only needs to be setup once for this example since nothing is ' Call the SetUpContextMenu function to ensure it is setup with most current context Of course this assumes the Private Sub MyListControlName_MouseUp(ByVal Button As Integer, _ First create an _MouseUp event to execute on the respective control looking to see if the right mouse button was clicked and if so, call the.

How to extend drop down menu in excel 2016