TooltipText not working

[Chuck]

I'd like to show a tooltip with a custom menu item but the tooltip doesn't appear when I move the cursor over the menu item. Tools>Customize>Options>ShowScreenTips on Toolbars is ticked. Below is the relevant portion of the code that creates they custom menu.

Much obliged for any ideas as to why the TooltipText isn't showing...

Set oMainMenuBar = CommandBars.Item("Menu Bar")

For Each oMenu In oMainMenuBar.Controls
If oMenu.Caption = "Re&branding" Then
oMainMenuBar.Controls("Re&branding").Delete
End If

Next oMenu

Set oMenu = oMainMenuBar.Controls.Add(Type:=msoControlPopup, Before:=10)
oMenu.Caption = "Re&branding"

Set oMenuItem = oMenu.Controls.Add(Type:=msoControlButton, _
Before:=(oMenu.Controls.Count) + 1)

With oMenuItem
.Caption = "&Document Rebranding - Automatic"
.Tag = "RebrandMenuAuto"
.TooltipText = "TOOL TIP TEXT HERE"
.OnAction = "SUBNAME HERE" 'sub runs fine
End With

 

[Chad DeMeyer]

Chuck,

I'm pretty sure that are never displayed in menus. If you try building your
menu manually with the Customize dialog, I think you'll find that it still
doesn't work.

cjd

I'd like to show a tooltip with a custom menu item but the tooltip doesn't

appear when I move the cursor over the menu item.
Tools>Customize>Options>ShowScreenTips on Toolbars is ticked. Below is the
relevant portion of the code that creates they custom menu.

 

[Chad DeMeyer]

I seem to have left out a word, what I meant to say: I'm pretty sure that
tooltips are never displayed in menus.

 

[Chuck]

Ah, well that would explain it. Thanks.

Chuck,

I'm pretty sure that are never displayed in menus. If you try building your
menu manually with the Customize dialog, I think you'll find that it still
doesn't work.

cjd



appear when I move the cursor over the menu item.
Tools>Customize>Options>ShowScreenTips on Toolbars is ticked. Below is the
relevant portion of the code that creates they custom menu.