Excel | 如何用VBA添加或删除右键快捷菜单

先学习右键有什么快捷键

1. Sub 列出右键菜单_芐雨()
   
2. On Error Resume Next
   
3. Dim mc As CommandBarControl
   
4. x = 1
   
5. Cells(x, 1) = "Index"
   
6. Cells(x, 2) = "Caption"
   
7. Cells(x, 3) = "ID"
   
8. For Each mc In Application.CommandBars("cell").Controls
   
9.     Cells(x + 1, 1) = mc.Index
   
10.     Cells(x + 1, 2) = mc.Caption
    
11.     Cells(x + 1, 3) = mc.ID
    
12.     x = x + 1
    
13. Next
    
14. End Sub

删除Delete

1. Sub 删除_芐雨()
   
2. Application.CommandBars("cell").Controls("显示拼音字段(&S)").Delete     '用名字识别删除
   
3. Application.CommandBars("cell").Controls(17).Delete                     'Index识别删除
   
4. End Sub

添加Add

1. Sub 添加_芐雨()
   
2. Application.CommandBars("cell").Controls.Add ID:=1614, before:=17   '在index17前面添加id为1614
   
3. End Sub

重置Reset

1. Sub 恢复_芐雨()
   
2. '将内置 CommandBarControl 重置为其初始功能和图符，重置一个内置命令栏将删除其中的自定义控件并恢复其内置控件
   
3. Application.CommandBars("cell").Reset
   
4. End Sub