
Shortcutmenubar - How do I get a reference to it?
Hi,
I want to find out what the shortcutmenubar is for a control on a form. The
problem is, it is usually blank when I retrieve the protpery, but I
certainly get a popup when I right clik in the control So, how do I get the
actual shortcutmenubar that is the default?
I do this to get the ShortcutMenuBar, but it is always ""
Dim myStr As String
myStr = Screen.ActiveControl.ShortcutMenuBar
So, instead I have to do this to add a control button. I would like to not
hard code the CommandBar, since I have similar controls in other places,
with other Commandbars.
Set newItem = CommandBars("Form View Subform
Control").Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)