Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Tooltip or StatusBar msgs for menu items
Hello,
Is there a way to show tooltips for custom CommandBar menu 'items'? None appear even though I've set the 'TooltipText' property for each item, and the 'Show ScreenTips on toolbars' option in the Customize window is checked. Or, if this is not doable in xl2003 then is there a way to show a custom message when the user does a mouse-over on a menu item in a drop-down? Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Tooltip or StatusBar msgs for menu items
The following code works for me.
Dim CmdBar As Office.CommandBar Dim Ctrl As Office.CommandBarControl Set CmdBar = Application.CommandBars.Add(Name:="MyName", temporary:=True) Set Ctrl = CmdBar.Controls.Add(Type:=msoControlButton, temporary:=True) With Ctrl .Caption = "Click Me" .TooltipText = "This is the Tooltip Text" .Enabled = True .Style = msoButtonCaption End With CmdBar.Visible = True -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email address is on the web site) "jtaylor" wrote in message ... Hello, Is there a way to show tooltips for custom CommandBar menu 'items'? None appear even though I've set the 'TooltipText' property for each item, and the 'Show ScreenTips on toolbars' option in the Customize window is checked. Or, if this is not doable in xl2003 then is there a way to show a custom message when the user does a mouse-over on a menu item in a drop-down? Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Tooltip or StatusBar msgs for menu items
How about submenu items - "MenuItem Tooltip Text" in the revision below
doesn't appear upon mouse-over; Dim CmdBar As Office.CommandBar Dim Ctrl As Office.CommandBarControl Dim ctlMenuItem As CommandBarControl Application.CommandBars("MyName").Delete Set CmdBar = Application.CommandBars.Add(Name:="MyName", Temporary:=True) Set Ctrl = CmdBar.Controls.Add(Type:=msoControlPopup, Temporary:=True) With Ctrl .Caption = "MainMenu" .TooltipText = "MainMenu Tooltip Text" .Enabled = True End With Set ctlMenuItem = Ctrl.Controls.Add(Type:=msoControlButton, Temporary:=True) With ctlMenuItem .Caption = "Click Me" .TooltipText = "MenuItem Tooltip Text" .Enabled = True .Style = msoButtonCaption End With CmdBar.Visible = True "Chip Pearson" wrote: The following code works for me. Dim CmdBar As Office.CommandBar Dim Ctrl As Office.CommandBarControl Set CmdBar = Application.CommandBars.Add(Name:="MyName", temporary:=True) Set Ctrl = CmdBar.Controls.Add(Type:=msoControlButton, temporary:=True) With Ctrl .Caption = "Click Me" .TooltipText = "This is the Tooltip Text" .Enabled = True .Style = msoButtonCaption End With CmdBar.Visible = True -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email address is on the web site) "jtaylor" wrote in message ... Hello, Is there a way to show tooltips for custom CommandBar menu 'items'? None appear even though I've set the 'TooltipText' property for each item, and the 'Show ScreenTips on toolbars' option in the Customize window is checked. Or, if this is not doable in xl2003 then is there a way to show a custom message when the user does a mouse-over on a menu item in a drop-down? Thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Tooltip or StatusBar msgs for menu items
I see what you mean. I can't get the ToolTip text to display.
-- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email address is on the web site) "jtaylor" wrote in message ... How about submenu items - "MenuItem Tooltip Text" in the revision below doesn't appear upon mouse-over; Dim CmdBar As Office.CommandBar Dim Ctrl As Office.CommandBarControl Dim ctlMenuItem As CommandBarControl Application.CommandBars("MyName").Delete Set CmdBar = Application.CommandBars.Add(Name:="MyName", Temporary:=True) Set Ctrl = CmdBar.Controls.Add(Type:=msoControlPopup, Temporary:=True) With Ctrl .Caption = "MainMenu" .TooltipText = "MainMenu Tooltip Text" .Enabled = True End With Set ctlMenuItem = Ctrl.Controls.Add(Type:=msoControlButton, Temporary:=True) With ctlMenuItem .Caption = "Click Me" .TooltipText = "MenuItem Tooltip Text" .Enabled = True .Style = msoButtonCaption End With CmdBar.Visible = True "Chip Pearson" wrote: The following code works for me. Dim CmdBar As Office.CommandBar Dim Ctrl As Office.CommandBarControl Set CmdBar = Application.CommandBars.Add(Name:="MyName", temporary:=True) Set Ctrl = CmdBar.Controls.Add(Type:=msoControlButton, temporary:=True) With Ctrl .Caption = "Click Me" .TooltipText = "This is the Tooltip Text" .Enabled = True .Style = msoButtonCaption End With CmdBar.Visible = True -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email address is on the web site) "jtaylor" wrote in message ... Hello, Is there a way to show tooltips for custom CommandBar menu 'items'? None appear even though I've set the 'TooltipText' property for each item, and the 'Show ScreenTips on toolbars' option in the Customize window is checked. Or, if this is not doable in xl2003 then is there a way to show a custom message when the user does a mouse-over on a menu item in a drop-down? Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 97 menu items | Excel Discussion (Misc queries) | |||
Menu items | Excel Discussion (Misc queries) | |||
New menu items | Excel Programming | |||
Menu items added with menu item editor in older versions | Excel Discussion (Misc queries) | |||
Sub Menu Items | Excel Programming |