Question

如何为VBA宏程序在EXCEL菜单栏上添加按钮

Answer 1

'主菜单上添加自定义按钮
Sub addbtn()
Set myMenu = Application.CommandBars("worksheet menu bar")
Set Button = myMenu.Controls.Add(Type:=msoControlButton)
Button.Caption = "按钮" '按钮上的文字，填写你需要的
Button.Style = msoButtonIconAndCaption
Button.FaceId = FaceId '按钮图标,数字比如8，系统存在的
Button.OnAction = "OnAction" '按钮执行的宏名，填写你自己编写的宏的宏名
End Sub

Answer 2

Sub auto_open()
MenuBars(xlWorksheet).Reset
Set mycommandbar = CommandBars("standard")
Set mybutton = mycommandbar.Controls.Add(Type:=msoControlButton)
With mybutton
.Style = msoButtonCaption
.Caption = "资料输入" '按扭名称
.Enabled = True
.OnAction = "程序" '要运行的程序名称
End With
End Sub
Sub auto_close()
Set mycommandbar = CommandBars("standard")
For Each mybutton In mycommandbar.Controls
If mybutton.Caption = "资料输入" Then mybutton.Delete
Next
End Sub

Answer 3

视图→工具栏→自定义→命令。在左边找到宏就可以了

追问

谢谢，可是你说的回答，不是我要知道的功能。我要的是在菜单栏添加自定义VBA程序的功能按钮。这个问题我已经知道答案了，如何将此问题关闭呀？

追答

既然就我一个人回答，给我个最佳就关闭了，哈