VBA 给Excel添加自定义菜单栏

时光流逝

1. Sub SetMenu()
   
2.         Dim myBar As CommandBar
   
3.         Dim myButton As CommandBarButton
   
4.         Set myBar = CommandBars.Add(Name:="vb小源码", _
   
5.             Position:=msoBarTop, _
   
6.             MenuBar:=True)
   
7.         Set myButton = myBar.Controls.Add(msoControlButton)
   
8.         myButton.Style = msoButtonCaption
   
9.         myButton.Caption = "退出[&E]"
   
10.         myButton.OnAction = "ExitSYS"
    
11.         Set myButton = myBar.Controls.Add(msoControlButton)
    
12.         myButton.Style = msoButtonCaption
    
13.         myButton.Caption = "返回[&R]"
    
14.         myButton.OnAction = "ReturnMAIN"
    
15.         myButton.Visible = True
    
16.         myBar.Protection = msoBarNoMove + msoBarNoCustomize
    
17.         myBar.Visible = True
    
18.     End Sub

复制代码