VBA 添加简单菜单（有分割线）

 

ThisWorkbook里的代码:

Private Sub Workbook_Open()
     Call addMenu
End Sub

Sub addMenu()  '菜单
    Dim Popup(1)
    Dim Button(5) As CommandBarControl

    Set aa = Application.CommandBars(3).Controls.Add
    Set Popup(0) = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, temporary:=True)
    Popup(0).Caption = "☆工具☆"
    Popup(0).Tag = "bb"

    Set Button(1) = Popup(0).Controls.Add(Type:=msoControlButton, temporary:=True)
    Button(1).Caption = "菜单一"
    Button(1).OnAction = ""

    Set Button(2) = Popup(0).Controls.Add(Type:=msoControlButton, temporary:=True)
    Button(2).Caption = "菜单二"
    Button(2).OnAction = &#