ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Drop Down Menu (non Data Validation type) (https://www.excelbanter.com/excel-programming/288459-drop-down-menu-non-data-validation-type.html)

blc[_2_]

Drop Down Menu (non Data Validation type)
 
Hello all

I have read the posts regarding how to add a drop down menu to a cell in Excel. However, they all refer to the "data validation" type of list answer

I am more interested along the lines of adding a true menu to a cell like you would add a menu to the Excel Worksheet Menu Bar (where File, Help, etc. are located), but again putting it inside of a cell (using a control?)..

Basically, I have added a menu to the Worksheet Menu Bar, but now I want to MOVE it to a "cell" on the worksheet...

What control would I use to do that? Again, was not looking for the "data validation" answer, was looking more for a control/programming answer like I originally did when I added a new menu to the Worksheet Menu Bar

Thank you very much in advance

blc

blc[_2_]

Drop Down Menu (non Data Validation type)
 
I forgot to add my code the first time... Here is the code I use to add a new custom menu to the Worksheet Menu Bar

Dim objEnterProjectInfo As CommandBarButto
Dim objNewMenu As CommandBarPopu
Dim objHelpMenu As CommandBarContro

' Some code omitte

'Find the Help Men
Set objHelpMenu = Application.CommandBars(1).FindControl(ID:=30010
If (objHelpMenu Is Nothing) The
Set objNewMenu = Application.CommandBars(1).Controls.Add(Type:=msoC ontrolPopup, temporary:=True
objNewMenu.Caption = "Some Text
Els
'Add the menu before the Help men
Set objNewMenu = Application.CommandBars(1).Controls.Add(Type:=msoC ontrolPopup,
befo=objHelpMenu.Index,
temporary:=True
objNewMenu.Caption = "Some Text
End I

' First *Menu* ite
Set objEnterProjectInfo = objNewMenu.Controls.Add(Type:=msoControlButton
With objEnterProjectInf
.Caption = "Open Project...
.FaceId = 16
.OnAction = "RSMA.LoadProjectInfo
End Wit

Thanks again

bl



All times are GMT +1. The time now is 02:08 PM.

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