发布网友 发布时间:2022-03-23 19:43
共4个回答
热心网友 时间:2022-03-23 21:12
这个应该是这样的:热心网友 时间:2022-03-23 22:30
右键单击菜单栏空白处热心网友 时间:2022-03-24 00:05
http://zhidao.baidu.com/question/176919517.html追问没用啊!!!这样都只能暂时显示,等我点击那个关闭按钮之后,又消失了。追答Sub OpenMyMenu() '自定义多级选单函数
'省略......
MenuBars("工作表菜单栏").Menus.Add "xxx"
End Sub
Sub auto_open()
OpenMyMenu '调用用户选单函数
End Sub
Sub auto_close()
'On Error Resume Next '忽略错误
MenuBars("工作表菜单栏").Menus("xxx").Delete '删除自定义选单
End Sub
热心网友 时间:2022-03-24 01:56
在菜单栏空白处右键单击试试?