怎么给Excel加一个菜单呢?

Question

我用:
Set Menu_Top = Application.CommandBars.Add(Name:="测试菜单", Position:=msoBarBottom)
Set Menu_A = Menu_Top.Controls.Add(Type:=msoControlButton)
没有报错,但是菜单栏上也没什么变化

Answer 1

http://www.google.com/search?hl=ja&newwindow=1&q=Create+Custom+Menu+Item+in+Excel+With+VBA&btnG=%E6%A4%9C%E7%B4%A2&lr=

Answer 2

你试一下:
  Dim Menu_Top As CommandBarControl
  Set Menu_Top = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup)
  Menu_Top.Caption = "测试菜单"

Answer 3

Dim toolbar As CommandBar
Set toolbar = Application.CommandBars("Worksheet Menu Bar")
Set NewMenu = toolbar.Controls.Add(Type:=msoControlPopup, ID:=1, Temporary:=True)
NewMenu.Caption = "测试菜单"

Answer 4

Set Menu_Top = Application.CommandBars.Add(Name:="测试菜单", Position:=msoBarBottom) 
Set Menu_A = Menu_Top.Controls.Add(Type:=msoControlButton) 
没有报错,但是菜单栏上也没什么变化
//
你的代码正确运行了，创建的是button，你右键点toolbar看看你的菜单是不是在里面，只是没有显示出来而已~