自动生成VBA窗体菜单

songlin · 发表于 2010-9-14 06:45

谢谢分享!收藏

小fisher · 发表于 2010-9-14 09:21

修改单元格右键菜单不是个好办法，万一进程崩溃单元格右键菜单就改变了，即使正常运行，application.Commandbars("cell").Reset这句代码也会将其他宏或加载项放在单元格右键菜单中的按钮清除掉，这样会产生很多不便。
其实可以在Form_Initialize事件代码中自己创建一个弹出式工具栏，然后在Form_QueryUnload事件代码中删除。创建弹出式工具栏的代码如下（替换原来的Set Popup_Menu =application.Commandbars("cell")）：
On Error Resume Next
Application.CommandBars("abc").Delete
On Error GoTo 0
Set Popup_Menu = Application.CommandBars.Add("abc", msoBarPopup)
同时将工程中所有application.Commandbars("cell")替换为Popup_Menu。

qczvba · 发表于 2010-9-14 11:15

好东西，谢楼主了。

asdf159357 · 发表于 2010-10-20 11:07

下载了，谢谢啊。

jyj679 · 发表于 2010-11-13 15:01

完了！！运行一次后，我打开其他的execl文件全是这个菜单！怎么都消除不掉！！
————甚至于重装execl都没用，
各位小心了！！！！

chinjingo · 发表于 2010-11-13 15:19

收下先，谢谢

doitbest · 发表于 2010-11-13 15:57

楼主热心真诚，尽管代码不一定完美无缺，但大家支持你

swx189 · 发表于 2010-11-13 23:50

学习一下，好好研究。

YZLSZAJ · 发表于 2010-11-14 06:05

谢谢楼主的分享精神。

0372nhyz · 发表于 2010-11-14 09:57

不是太会用，能否解释下

		自动登录	找回密码
密码			免费注册

[原创] 自动生成VBA窗体菜单