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