How to Place a Check Mark Next to an Item in the Submenu of a Custom Menu
 

Hi All,

This is how you put it next to an item in the custom made menu:

Sub check_Received()

Dim mypopup As CommandBarPopup
Set mypopup = CommandBars(1).Controls("My menu")

If mypopup.Controls("Received").State = msoButtonDown Then
'menu item unchecked
mypopup.Controls("Received").State = msoButtonUp
Else
'menu item checked
mypopup.Controls("Received").State = msoButtonDown
End If
End Sub

How do you go about an item in the submenu of the same menu (("My
menu")?

Cheers

How to Place a Check Mark Next to an Item in the Submenu of a Custom Menu
 

Can it be that nobody in this group knows the reply to this question?


On Thu, 05 Jul 2007 12:36:08 +0200, Evil Bumblebee
wrote:

Hi All,

This is how you put it next to an item in the custom made menu:

Sub check_Received()

Dim mypopup As CommandBarPopup
Set mypopup = CommandBars(1).Controls("My menu")

If mypopup.Controls("Received").State = msoButtonDown Then
'menu item unchecked
mypopup.Controls("Received").State = msoButtonUp
Else
'menu item checked
mypopup.Controls("Received").State = msoButtonDown
End If
End Sub

How do you go about an item in the submenu of the same menu (("My
menu")?

Cheers