Grey out menu item

[Peter100]

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]

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]

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]

Well I tried it before posting and it greyed it out, as this image shows

[Peter100]

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]

[vba]

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
[/vba]