第1个回答 2013-06-02
这个问题属于中高级课程的知识,在本基础班不会涉及。我下面分享一下例子,可以把宏添加到加载项里,要做成楼主这样,还得细细研究CommandBar对象。建议楼主百度一下搜索一下。Sub 自定义菜单() Dim cmd As CommandBar On Error Resume Next Application.CommandBars("asktell").Delete Set cmd = Application.CommandBars.Add("asktell", msoBarTop) With cmd With .Controls.Add(msoControlButton) .Caption = "测试" .Style = msoButtonCaption .OnAction = "test" End With .Visible = True End WithEnd SubSub test() Range("a1") = 1End Sub本回答被网友采纳