is there way name of clicked menu item? have created new add-in file menus , sub-menus. can name of sub-menu clicked used inside macro?
for example:
sub auto_open() dim newcontrol commandbarpopup dim mitem, submenu on error resume next call auto_close set newcontrol = application.commandbars("worksheet menu bar").controls.add(type:=msocontrolpopup, temporary:=true) newcontrol.caption = "&menu" set mitem = newcontrol.controls.add(type:=msocontrolbutton) mitem .caption = "sub-menu1" .onaction = "submenu1" end set mitem = newcontrol.controls.add(type:=msocontrolbutton) mitem .caption = "sub-menu2" .onaction = "submenu2" end set mitem = newcontrol.controls.add(type:=msocontrolbutton) mitem .caption = "sub-menu3" .onaction = "submenu3" end on error goto 0 end sub
so above code creates add-in ribbon button "menu" , sub-menus "sub-menu1, sub-menu2 , sub-menu3".
if click of sub menus need message box displaying name of menu clicked.
the actioncontrol property of commandbars object tell menu item clicked call code.
dim ctl commandbarcontrol set ctl = application.commandbars.actioncontrol
Comments
Post a Comment