April 2006
Beginner
1114 pages
98h 16m
English
Content preview from Programming Excel with VBA and .NETBecome an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Change an Existing Menu
You can also add or remove commands on existing menus in code. For example, you might want to add Contact Us and About commands to the Help menu for a workbook add-in. To do so:
Get a reference to the menu toolbar.
Use the
FindControlmethod to get a reference to the existing Contact and About items.Modify those menu items.
Add new Contact Us and About items.
The following code demonstrates the preceding steps by changing the caption of the Contact Us menu item to Contact Microsoft, then adds new Contact and About items to the Help menu:
Sub ChangeHelpMenu( ) Dim cb As CommandBar, cpop As CommandBarPopup, cbtn As CommandBarButton Dim index As Integer ' Get the menu bar (CommandBar). Set cb = Application.CommandBars("Worksheet Menu Bar") ' Get the Help menu (control's ID is 30010) Set cpop = cb.FindControl(msoControlPopup, 30010) ' Get the Contact Us item (control's ID is 7903) Set cbtn = cb.FindControl(msoControlButton, 7903, , , True) ' Change the caption. cbtn.Caption = "&Contact Microsoft" index = cbtn.index ' Add a new Contact item. Set cbtn = cpop.Controls.Add(msoControlButton, , , index, True) cbtn.Caption = "Contact &Author" cbtn.OnAction = "ContactAuthor" ' Get the About item Set cbtn = cb.FindControl(msoControlButton, 927, , , True) index = cbtn.index cbtn.BeginGroup = False ' Add a new About item. Set cbtn = cpop.Controls.Add(msoControlButton, , , index, True) cbtn.Caption = "About &" & ThisWorkbook.Name cbtn.OnAction = "ShowAbout" cbtn.BeginGroup = ...Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Read now
Unlock full access
More than 5,000 organizations count on O’Reilly
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.Julian F.
I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.Addison B.
I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.Amir M.
I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.