Excel菜单里的名字是怎样添加的

咊崋潤傑

请问：佛山小老鼠老师你的名字怎样添加进去的？见附件。多谢了！！

佛山小老鼠

用VBA代码加上去的

咊崋潤傑

知道了，感谢！感谢！我不会VBA，在一点一点的学！再次感谢！！

佛山小老鼠

这是代码
Sub test()
     Dim dd As CommandBarPopup
     On Error Resume Next
     Application.CommandBars(1).Controls("你自己的名字").Delete
     Set dd = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=1)
          With dd
               .Caption = "你自己的名字"
          End With
End Sub

咊崋潤傑

再次感谢楼上的专家！

style-sh

先收藏，慢慢学习学习，谢谢

shuizhuyu

如何删除添加的菜单呢

sywan3596

'以下代码删除你加入的菜单
Sub DeleteBar()
   Dim aa As CommandBarPopup
   On Error Resume Next
   Application.CommandBars(1).Controls("你的名字").Delete   
End Sub

佛山小老鼠

这位新朋友很不错
删除代码是：
Sub DeleteBar()
  On Error Resume Next
   Application.CommandBars(1).Controls("你的名字").Delete
End Sub
其实也可以按住Alt键不放，把光标放到那个不要的菜单上，再按住鼠标左键不放，把那个不要的菜单拖出来

[ 本帖最后由 佛山小老鼠 于 2011-2-26 17:54 编辑 ]