1、菜单栏属于CommandBars集合，可以通过菜单栏名称或索引值对其进行引用：CommandBars(“Worksheet Menu Bar”)或CommandBars(1)

　　2、新添加的菜单是一个弹出式控件，其类型为msoControlPopup。

　　3、通过Add方法向Controls集合中添加新的控件。Add方法可以指定控件的类型、内置控件的ID号、位置及是否是一个临时控件。如果是一个临时控件，则在关闭Excel时会自动删除该菜单。

　　4、可以指定新菜单的位置。如果不指定，则会在菜单工具栏末尾添加新菜单。

　　5、使用Caption属性指定新菜单的名称，使用OnAction属性指定单击菜单后的行为。

　　6、为了避免指定的菜单不存在，可以使用FindControl方法查找要指定的菜单。若指定的菜单不存在，则在工作表菜单栏末尾添加新菜单。

　　以下是向Excel工作表菜单栏中添加菜单的VBA代码：

　　Sub AddNewMenu()
　　Dim HelpMenu As CommandBarControl
　　Dim NewMenu As CommandBarPopup

　　'利用ID属性查找帮助菜单
　　Set HelpMenu = CommandBars(1).FindControl(ID:=30010)

If HelpMenu Is Nothing T

 把输出内容位置移到第几列.(窗体是由一列一列组成的) 如:print 'aaa' ; tab(5) ;'bbb'     是打印aaa 后再在从窗体头数第五列后加上bbb