首页 › Excel › VBA 给Excel添加自定义菜单栏

时光流逝 发表于 2019-8-13 16:04:18

VBA 给Excel添加自定义菜单栏

Sub SetMenu()
      Dim myBar As CommandBar
      Dim myButton As CommandBarButton
      Set myBar = CommandBars.Add(Name:="vb小源码", _
            Position:=msoBarTop, _
            MenuBar:=True)
      Set myButton = myBar.Controls.Add(msoControlButton)
      myButton.Style = msoButtonCaption
      myButton.Caption = "退出[&E]"
      myButton.OnAction = "ExitSYS"
      Set myButton = myBar.Controls.Add(msoControlButton)
      myButton.Style = msoButtonCaption
      myButton.Caption = "返回[&R]"
      myButton.OnAction = "ReturnMAIN"
      myButton.Visible = True
      myBar.Protection = msoBarNoMove + msoBarNoCustomize
      myBar.Visible = True
    End Sub

查看完整版本: VBA 给Excel添加自定义菜单栏