PDA

View Full Version : [SOLVED:] Grey out menu item


Peter100
05-11-2009, 03:32 AM
Hi

I have an addin menu based on the following code and want the menu 2 option visible but grey, is this possible


Sub AddMenus()
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCutomMenu As CommandBarControl
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("&New Menu").Delete
On Error GoTo 0
Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
iHelpMenu = cbMainMenuBar.Controls("Help").Index
Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, _
Before:=iHelpMenu)
cbcCutomMenu.Caption = "&New Menu"
With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "Menu 1"
.OnAction = "MyMacro1"
End With
With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "Menu 2"
.OnAction = "MyMacro2"
End With
End Sub
Bob Phillips
05-11-2009, 04:05 AM
I have already showed you how to do this at your posting in MrExcel http://www.mrexcel.com/forum/showthread.php?t=389378

Do not cross-post. Cross-posters deserve to be banished to the deepest recesses of the internet.
Peter100
05-11-2009, 04:12 AM
Hi Xld

As you saw in my reply, I couldn't get it to work and as you didn't respond further I tried this forum. No cross listing was intended.

I appreciate your reply might well work but as a fairly newcomer to VBA my knowledge is extremely limited and needed further assistance.
Bob Phillips
05-11-2009, 04:28 AM
Well I tried it before posting and it greyed it out, as this image shows
Peter100
05-11-2009, 04:38 AM
Could you please show me how it fits into my code as I cant make it happen and as I said I am quite green at VBA

Thanks

Peter
Bob Phillips
05-11-2009, 06:49 AM
Sub AddMenus()
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCutomMenu As CommandBarControl
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("&New Menu").Delete
On Error GoTo 0
Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
iHelpMenu = cbMainMenuBar.Controls("Help").Index
Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, _
Before:=iHelpMenu)
With cbcCutomMenu
.Caption = "&New Menu"
With .Controls.Add(Type:=msoControlButton)
.Caption = "Menu 1"
.OnAction = "MyMacro1"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Menu 2"
.OnAction = "MyMacro2"
.Enabled = False '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
End With
End With
End Sub