用VBA代码处理菜单和工具栏之二

                          -------------------郑家龙编绎于MS OFFICE开发文档

创建菜单和工具栏

你可以用自定义的对话框或VBA在任何一个OFFICE组件应用程序中创建工具栏（菜单栏）。在Access中，你也可以在现有的工具栏上右击，然后在出现的弹出式菜单中选择自定义来创建或修改已有的工具栏，不管怎样，你可以用VBA在任何一个OFFICE组件应用程序中来创建它工具栏。

用CommandBars集合中的Add方法可以创建一个新的工具栏，但是Add方法默认的是创建一个工具栏，如果要创建一个新的菜单栏或者是弹出式菜单栏，你可以用msoBarPopup 和msoBarMenuBar常数在Add方法的指定位置指是创建这两种形式的工具栏。

下面的示例代码说明了如何分别创建这三种类型的工具栏：

    Dim cbrCmdBar   As CommandBar

    Dim strCBarName  As String

    '创建工具栏

    strCBarName = "MyNewToolbar"

    Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName)

    '创建菜单栏

    strCBarName = "MyNewMenuBar"

    Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarMenuBar)

    '创建弹出式菜单栏

    strCBarName = "MyNewPopupMenu"

    Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarPopup)

创建好三种工具栏中的任一种后，必需在工具栏上面加入实际的命令按钮才有意义，否则它是没有什么作用的，关于如果在工具栏上增加各种类型的按钮，请参考以后的“菜单和工具栏的使用-增加命令控件”专题。