Results 1 to 3 of 3
  1. #1
    New Lounger
    Join Date
    Jul 2007
    Posts
    21
    Thanks
    0
    Thanked 0 Times in 0 Posts

    A check mark next to an item in the submenu (Excel 2003)

    Hi All,

    This is how I 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 place a check mark next to an item in the SUBMENU of the same menu ("My menu")? Let us say that the submenu was named "By 2006."

    Cheers

  2. #2
    WS Lounge VIP rory's Avatar
    Join Date
    Dec 2000
    Location
    Burwash, East Sussex, United Kingdom
    Posts
    6,280
    Thanks
    3
    Thanked 191 Times in 177 Posts

    Re: A check mark next to an item in the submenu (Excel 2003)

    Something like:
    <pre>If mypopup.Controls("By 2006").Controls("subcontrol").State = msoButtonDown Then</pre>

    Regards,
    Rory

    Microsoft MVP - Excel

  3. #3
    New Lounger
    Join Date
    Jul 2007
    Posts
    21
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: A check mark next to an item in the submenu (Excel 2003)

    Something like, exactly, but you pointed me in the right direction (see the pic attached). So hat off to Rory. [img]/forums/images/smilies/smile.gif[/img] Much obliged.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •