excel中用vba加载宏添加菜单和按钮

‘auto_open方法 文件打开后自动运行 一般放在加载宏文件里（.xla）

’每次使用运行xla文件  就能添加自己设计好的菜单和按钮

Private Sub Auto_Open()
    Set cmbar = Application.CommandBars("Worksheet Menu Bar")
    Set Menu = cmbar.Controls.Add(Type:=msoControlPopup)
    Menu.Caption = "menuName"

    '添加下拉菜单和按钮--------------------------------------------
     With Menu.Controls.Add(Type:=msoControlButton)
            .Caption = "buttonName"
            .OnAction = "buttonAction"
    End With
    With Menu.Controls.Add(Type:=msoControlButton)
            .Caption = "buttonName"
            .OnAction = "buttonAction"
    End With

    '直接添加按钮---------------------------------------------------

    Set btn = cmbar.Controls.Add(Before:=1)
    With btn
     .Caption = "buttonName"
     .Visible = True
     .Width = 70
     .OnAction = "buttonAction"
     .Style = msoButtonIconAndCaption
End With

End Sub