Excel2007中生成Excel2003经典菜单

从2007版界面的变动，让很多习惯于旧版界面的用户不太适应，因此收集了下面两个在excel2007/2010中，生成经典菜单的VBA代码:Sub 添加2003版菜单到右键菜单中()With Application.CommandBars(cell).ResetWith.Controls.Add(Type:=msoControlButton,before:=1).Caption=2003版菜单.BeginGroup=True.OnAction=菜单2003End WithEnd WithEnd SubSub 菜单2003()Application.CommandBars(Built-in Menus).ShowPopupEnd SubSub 重置右键菜单()Application.CommandBars(cell).ResetEnd SubSub 生成2003版菜单在加载项中()Set tbar=CommandBars.Add(Excelba)tbar.Visible=TrueFor Each a In Array(1,4,8,10,13,18,23,27,28)CommandBars(Built-in Menus).Controls(a).Copy(tbar)NextEnd SubSub 删除加载项中2003版菜单()CommandBars(Excelba).DeleteEnd Sub从2007版界面的变动，让很多习惯于旧版界面的用户不太适应，因此收集了下面两个在excel2007/2010中，生成经典菜单的VBA代码: