怎样使用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=NothingEnd Sub

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