ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Place a tick in a drop down menu (https://www.excelbanter.com/excel-programming/367292-place-tick-drop-down-menu.html)

dominicb[_179_]

Place a tick in a drop down menu
 

Hi all

I have some code that places a tick in a dropdown menu added to the
menu bar. The code I am using is this :

Application.CommandBars(1).Controls("&Ultimate").C ontrols(12).State =
msoButtonUp

This works really well, however I am now trying to add a tick to a
submenu item as well (in a similar way to the View Toolbars menu item
in Excel) but I just can't get the syntax correct.

Can anyone point me in the right direction?

Thanks

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=561715


Bob Phillips

Place a tick in a drop down menu
 
It would be something like

Application.CommandBars(1).Controls("&Ultimate").C ontrols(12).Controls("myBu
tton").State = msoButtonUp


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"dominicb" wrote in
message ...

Hi all

I have some code that places a tick in a dropdown menu added to the
menu bar. The code I am using is this :

Application.CommandBars(1).Controls("&Ultimate").C ontrols(12).State =
msoButtonUp

This works really well, however I am now trying to add a tick to a
submenu item as well (in a similar way to the View Toolbars menu item
in Excel) but I just can't get the syntax correct.

Can anyone point me in the right direction?

Thanks

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile:

http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=561715




dominicb[_180_]

Place a tick in a drop down menu
 

Hi Bob

I couldn't get it to work with the code you gave me, but I adapted it
and used the "count" method and used this code to get a button up /
down effect on menu item 1, submenu item 1 :

Application.CommandBars(1).Controls("&My
Menu").Controls(1).Controls(1).State = msoButtonDown

Thanks very much for the pointer!

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=561715



All times are GMT +1. The time now is 02:00 AM.

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