关于更改系统菜单项的语句

czs8888

各位大侠：
我正在做一个带VBA程序的Excel文件。我是想把它做成一个看上去比较专业一点的软件。
现在项目即将完成，在最后一步，我想把Excel菜单栏里的内容（如文件、编辑、视图...）全部换成自己的功能模块名称。
我在看了一些资料，好像目前只有在现有菜单栏插入新内容，而没有删除原来的文件、编辑、视图...的功能。

请问一下，完全更改原来Excel菜单栏的内容可以实现吗？谢谢！

清风_ll

可以有以下两种方法新建菜单栏，然后往菜单栏上添加命令栏控件。
1、新建命令栏代替

1. Sub a()
   
2.     Dim b As CommandBar
   
3.     Set b = Application.CommandBars.Add("EH", msoBarTop, True, True)
   
4.     b.Visible = True
   
5. End Sub
   

复制代码

'恢复方法：
Application.CommandBars("EH").Delete
或者关闭工作簿（当Temporary参数为True时）

2、删除其上控件

1. Sub b()
   
2.     Dim c As CommandBarControl
   
3.     For Each c In CommandBars(1).Controls
   
4.         c.Delete
   
5.     Next
   
6. End Sub

复制代码

恢复方法：
Application.CommandBars(1).Reset

hacker120

清风版主的代码很好，收藏学习了

820211639

{:soso_e100:}