如何用vba删除新增的自定义菜单命令或者恢复原来的菜单栏功能？

如下图所示，

在单元格右键快捷菜单中新增了一个自定义菜单命令“测试”。

每次打开excel文件都会有这个命令，现在如果不需要了，可以CommandBar对象的Reset方法进行重置。

CommandBar对象的Reset方法可以使命令栏恢复到最原始的状态，恢复默认设置。

代码如下：

Sub QQ1722187970()
    Dim objCB As CommandBar
    '获取单元格右键快捷菜单命令栏
    Set objCB = Excel.Application.CommandBars("Cell")
    With objCB
        '重置菜单命令栏
        .Reset
    End With
End Sub

事实上，新增自定义菜单命令，需要经常配合使用Reset方法，在每次新增前需要先Reset 重置恢复成原来的菜单，才能新增，不然会不断新增重复的命令。