Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Float Menu Excel 2003 vs 2007
Hi All
In a [2003] workbook I've got a "help sheet" with various help topics. When activated a float_menu appears from which the user can select a topic from a userform. This works great, however in 2007 the float_menu doesnt appear. Any suggestions ? As always any help will be much appreciated. This is my code: Regular module: Sub Float_Menu_help() Dim newMenu As CommandBar, newControl, newItem, subMenu Dim c 'remove custom menu if it exists Delete_HelpMenu 'create new menu and display it Set newMenu = CommandBars.Add(Name:="Help_Menu", _ Temporary:=True, _ MenuBar:=False) newMenu.Visible = True 'add a menu to the new CommandBar Set newControl = newMenu.Controls.Add(Type:=msoControlPopup) newControl.Caption = "Select the required item" newControl.OnAction = "HelpMe" End Sub Sheet code: Private Sub Worksheet_Activate() Float_Menu_help End Sub Private Sub Worksheet_Deactivate() Delete_HelpMenu End Sub -- HJN |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Float Menu Excel 2003 vs 2007
Have you looked for the items from your float_menu under the Add-ins tab?
-- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Hennie Neuhoff" wrote in message ... Hi All In a [2003] workbook I've got a "help sheet" with various help topics. When activated a float_menu appears from which the user can select a topic from a userform. This works great, however in 2007 the float_menu doesnt appear. Any suggestions ? As always any help will be much appreciated. This is my code: Regular module: Sub Float_Menu_help() Dim newMenu As CommandBar, newControl, newItem, subMenu Dim c 'remove custom menu if it exists Delete_HelpMenu 'create new menu and display it Set newMenu = CommandBars.Add(Name:="Help_Menu", _ Temporary:=True, _ MenuBar:=False) newMenu.Visible = True 'add a menu to the new CommandBar Set newControl = newMenu.Controls.Add(Type:=msoControlPopup) newControl.Caption = "Select the required item" newControl.OnAction = "HelpMe" End Sub Sheet code: Private Sub Worksheet_Activate() Float_Menu_help End Sub Private Sub Worksheet_Deactivate() Delete_HelpMenu End Sub -- HJN |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
menu 2003 to Excel 2007 | Excel Programming | |||
Excel 2003 Menu in 2007 | Setting up and Configuration of Excel | |||
Add menu to QAT with VBA Excel 2007 & 2003 | Excel Programming | |||
Excel 2003 & 2007 menu compatible menu by Ron de Bruin | Excel Programming | |||
menu float | Excel Discussion (Misc queries) |