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