Excel 2013 中不能自定义工具栏菜单栏

Question

Excel 2013 中不能自定义菜单栏，所有自定义的菜单和子菜单都会放在Add-in下面，但要把“Add-in”改成其他名字是不行的。例如下面代码，生成不了工具栏上的菜单。有谁知道怎么回事？[color=#FF0000]注意： 我说的是工具栏菜单，而不是子菜单。[/color]
Sub MenuBar_Create()
Dim myNewBar As Object
Set myNewBar = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)
   '您必须先启用您的自定义菜单栏，然后看见它。   '使菜单栏添加到自定义对话框列表中的可用菜单栏上。
    
   '设置菜单属性设置为True取代内置的菜单栏。myNewBar.Enabled = True
myNewBar.Visible = True
Set myNewBar1 = CommandBars.Controls.Add
End SubExcelVB菜单 自定义

Answer 1

不是EXCEL2013，2007，2010都这样，要使用RIBBON对象了。