怎样使用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、将工作表设置为分页预览状态，再单击右键，右键中仍然有“返回首页”菜单和功能