Prev: Referencing conditional format is another workbook using Chip Pear
Next: Sync parts of two worksheets including formats
From: Hennie Neuhoff on 7 Jun 2010 01:52 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 doesn't 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
From: Doug Robbins - Word MVP on 7 Jun 2010 03:52
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" <HennieNeuhoff(a)discussions.microsoft.com> wrote in message news:B6A749B3-96B6-4A53-804E-E7B329C8CDB2(a)microsoft.com... > 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 doesn't 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 |