第1个回答 推荐于2017-12-16
一般情况下用CALL命令即可, 但是在菜单栏调用就比较麻烦点, 首先要建立自己的菜单命令,
方法如下:
Sub auto_open()
Dim AA As CommandBarPopup
On Error Resume Next
On Error GoTo 0
Set AA= Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
AA.Caption = "自定义菜单"'菜单名称自选
With AA.Controls.Add(msoControlButton, , , , True)
.Caption = "自定义按钮"’按钮名称自选
.OnAction = "自定义宏命令"'这里是要调用的宏程序名
End With
end sub本回答被网友采纳