Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activating Custom Menu
I'm recently new to Excel VBA. I've bought several books but I can't seem to
get to the right sections. I've created a custom menu for a specific template and I just need to activate anytime I open the workbook and close everytime the workbook closes. Its just a blank menu. Here is the code: Sub AddNewMenu() Dim HelpIndex As Integer Dim NewMenu As CommandBarPopup ' Get Index of Help menu HelpIndex = CommandBars(1).Controls("Help").Index ' Create the control Set NewMenu = CommandBars(1) _ .Controls.Add(Type:=msoControlPopup, _ Befo=HelpIndex, Temporary:=True) ' Add a caption NewMenu.Caption = "&Macros" End Sub Any help would be greatly appreciated. Thank you Renato |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activating Custom Menu
You can rename the AddNewMenu to Auto_open
or you can call AddNewMenu from the Workbook_open event. Option Explicit Private Sub Workbook_Open() Call AddNewMenu End Sub The workbook_open event goes in the ThisWorkbook code module. Auto_open stays in a general module. ==== You may want to look at the way that John Walkenbach did it in his menumaker.xls workbook. http://j-walk.com/ss/excel/tips/tip53.htm He keeps track of the menu items and associated macros in a worksheet. Then loops through that worksheet. It really makes updates pretty simple. Renato wrote: I'm recently new to Excel VBA. I've bought several books but I can't seem to get to the right sections. I've created a custom menu for a specific template and I just need to activate anytime I open the workbook and close everytime the workbook closes. Its just a blank menu. Here is the code: Sub AddNewMenu() Dim HelpIndex As Integer Dim NewMenu As CommandBarPopup ' Get Index of Help menu HelpIndex = CommandBars(1).Controls("Help").Index ' Create the control Set NewMenu = CommandBars(1) _ .Controls.Add(Type:=msoControlPopup, _ Befo=HelpIndex, Temporary:=True) ' Add a caption NewMenu.Caption = "&Macros" End Sub Any help would be greatly appreciated. Thank you Renato -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activating Custom Menu
Thanks a lot, Dave.
I greatly appreciate your help. "Dave Peterson" wrote: You can rename the AddNewMenu to Auto_open or you can call AddNewMenu from the Workbook_open event. Option Explicit Private Sub Workbook_Open() Call AddNewMenu End Sub The workbook_open event goes in the ThisWorkbook code module. Auto_open stays in a general module. ==== You may want to look at the way that John Walkenbach did it in his menumaker.xls workbook. http://j-walk.com/ss/excel/tips/tip53.htm He keeps track of the menu items and associated macros in a worksheet. Then loops through that worksheet. It really makes updates pretty simple. Renato wrote: I'm recently new to Excel VBA. I've bought several books but I can't seem to get to the right sections. I've created a custom menu for a specific template and I just need to activate anytime I open the workbook and close everytime the workbook closes. Its just a blank menu. Here is the code: Sub AddNewMenu() Dim HelpIndex As Integer Dim NewMenu As CommandBarPopup ' Get Index of Help menu HelpIndex = CommandBars(1).Controls("Help").Index ' Create the control Set NewMenu = CommandBars(1) _ .Controls.Add(Type:=msoControlPopup, _ Befo=HelpIndex, Temporary:=True) ' Add a caption NewMenu.Caption = "&Macros" End Sub Any help would be greatly appreciated. Thank you Renato -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Custom Menu Help | Excel Worksheet Functions | |||
VBA - Disappearing custom menu and custom toolbar | Excel Programming | |||
Custom Menu return to Excel Menu upon Closing | Excel Programming | |||
De-Activating the menu option, Window - Unfreeze | Excel Programming | |||
Custom Menu | Excel Programming |