急求 VBA 相关

Question

我想添加一个这样的菜单
  1
    11
      111
      112
    12
    13
并且有相应的图标，怎么来做啊。
代码！谢谢    

Answer 1

MenuBars.Add ("MyMenu") 
Sheets("sheet1").Select
MenuBars("MyMenu").Menus.Add Caption:="&1"
MenuBars("MyMenu").Menus("11").MenuItems.Add Caption:="11", OnAction:="11"
MenuBars("MyMenu").Menus("111").MenuItems.Add Caption:="111", OnAction:="111"
MenuBars("MyMenu").Menus("1111").MenuItems.Add Caption:="1111", OnAction:="1111"
MenuBars("MyMenu").Menus("11111").MenuItems.Add Caption:="11111", 
MenuBars("MyMenu").Activate