VBA生成Excel2003经典菜单

虽然Excel的最新版本已经是2010版，但还是不少人还一直在用Excel2003以下版，或者还习惯于老版本的经典菜单。从2007版界面的变动，让很多习惯于旧版界面的用户不太适应，因此收集了下面两个在新版中，生成经典菜单的VBA代码：

 

'*****************************************************************

'时间：2011-4-24

'来源：www.exceltip.net

'功能：在Excel2007版右键菜单中生成2003版菜单

'发布：http://www.excelba.com

'*****************************************************************

 

Sub 添加2003版菜单到右键菜单中()

With Application.CommandBars("cell")

.Reset

With .Controls.Add(Type:=msoControlButton, before:=1)

.Caption = "2003版菜单"

.BeginGroup = True

.OnAction = "菜单2003"

End With

End With

End Sub

Sub 菜单2003()

Application.CommandBars("Built-in Menus").ShowPopup

End Sub

Sub 重置右键菜单()

Application.CommandBars("cell").Reset

End Sub

 

 

'*****************************************************************

'时间：2011-4-24

'来源：www.exceltip.net

'功能：在Excel2007以上版加载项中生成2003版菜单

'发布：http://www.excelba.com

'*****************************************************************

Sub 生成2003版菜单在加载项中()

Set tbar = CommandBars.Add("Excelba")

tbar.Visible = True

For Each a In Array(1, 4, 8, 10, 13, 18, 23, 27, 28)

CommandBars("Built-in Menus").Controls(a).Copy (tbar)

Next

End Sub

Sub 删除加载项中2003版菜单()

CommandBars("Excelba").Delete

End Sub