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

如下图所示,

2

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

每次打开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 重置恢复成原来的菜单,才能新增,不然会不断新增重复的命令。

       

发表评论