'添加03菜单
'http://www.exceltip.net/thread-5678-1-1-11314.html
Sub Cmd03()
Dim tbar, a
Set tbar = Application.CommandBars.Add("mybar")
tbar.Visible = True
For Each a In Array(1, 4, 8, 10, 13, 18, 23, 27, 28)
Application.CommandBars("Built-in Menus").Controls(a).Copy tbar
Next
End Sub