• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 157
  • Last Modified:

How to Customize Excel menu bar at run time?

Hello all
I need to add items to excel menu bar at runtime
and to load this menu as an Addin.

I prefer to see code that create a new menu item
(like file,edit,tools etc.) and add to it items
and sub menus with connection to event handlers

Thanks
0
avi9260
Asked:
avi9260
1 Solution
 
nzjonboyCommented:
check this out

Sub Auto_Open()
  Dim myBlankPop As CommandBarPopup
  Dim myBlankSubPop As CommandBarPopup
  Dim myBlankBtn As CommandBarButton

  Set myBlankPop = CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , 11, True)
 
  With myBlankPop
    .Caption = "Test"
 
    Set myBlankBtn = .Controls.Add(msoControlButton)
 
    With myBlankBtn
      .Style = msoButtonIconAndCaption
      .Caption = "Test Button"
      .FaceId = 480
      .OnAction = "clickBtn"
    End With
   
    Set myBlankBtn = Nothing
   
    Set myBlankSubPop = .Controls.Add(msoControlPopup)
   
    With myBlankSubPop
      .Caption = "Sub Menu"
      Set myBlankBtn = .Controls.Add(msoControlButton)
      With myBlankBtn
        .BeginGroup = True
        .Style = msoButtonIconAndCaption
        .Caption = "Test Button"
        .FaceId = 1845
        .OnAction = "clickSubBtn"
      End With
      Set myBlankBtn = Nothing
    End With
   
    Set myBlankSubPop = Nothing
       
  End With
End Sub

Function clickBtn()
  MsgBox "click"
End Function

Function clickSubBtn()
  MsgBox "click from sub menu"
End Function


hope this helps

nzjonboy
0
 
avi9260Author Commented:
Thanks a lot
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now