关于<em>excel</em> <em>vba</em> 删除自定义&

按钮不是只能加在百Add-in,加载项只是为了让宏度能通用到所有的表.而不是知只能用在一个道表上面
Private Sub auto_open()
Dim mCaidan As Menu
MenuBars(xlWorksheet).Reset
Set mCaidan = MenuBars(xlWorksheet).Menus.Add("常用工具箱")
With mCaidan.MenuItems
.Add "SHEET排序", "SH_px", "3157"
.Add "生成目录内", "mulu", 11
End With
End Sub
记得将宏安容全性调成低

楼主你好，看见你提问Excel的这抄个问题，嘿嘿，好像在那里看见过，所以我来解答你，不过我怕我说的不是很清楚，这样好了我给你个网址你进去看看，里面绝对可以解决你的问题的zd答案，我基本都是在那边学的，什么都有，绝对全面，网址是 http://www.blue1000.com/bkhtml/c118/，你记得只找你的问题，看的太多小心眼花!.....
'主菜单上添加百自定义按钮
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

Set NewMenu = CommandBars(1).Controls _
.add(Type:=msoControlPopup, Before:=HelpMenu.Index, _
Temporary:=False)

中的百度BEFORE 改成回答 AFTER