怎样使用VBA得到不同的菜单ID？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub取得所有菜单ID()

    Dim objMenu As CommandBar, Num As Byte
    On Error Resume Next
    Application.ScreenUpdating=False
    With ActiveSheet
    .[a1]="菜单名称"
    .[b1]="ID"
      Num=2
      For Each objMenu In Application.CommandBars
      objMenu.Enabled=True
        .Cells(Num, 1).Value=objMenu.Name
        .Cells(Num, 2).Value=objMenu.Index
        Num=Num+1
      Next objMenu
    End With
    Columns("A:B").EntireColumn.AutoFit
    Application.ScreenUpdating=True
    Set objMenu=Nothing
 End Sub

5、将工作表设置为分页预览状态，再单击右键，右键中仍然有“返回首页”菜单和功能