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

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