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

创建菜单和工具栏

通过使用自定义对话框或VBA，可以在任何OFFICE组件应用程序中创建工具栏(菜单栏)。在access中，也可以右键单击现有工具栏，然后在弹出菜单中选择“自定义”,以创建或修改现有工具栏。在任何情况下，您都可以使用VBA在任何OFFICE组件应用程序中创建其工具栏。

可以使用CommandBars集合中的Add方法创建新工具栏，但Add方法的默认设置是创建工具栏。如果要创建新的菜单栏或弹出菜单栏，可以在Add方法的指定位置使用msoBarPopup和msoBarMenuBar常量来引用创建这两种类型的工具栏。

以下示例代码显示了如何分别创建这三种类型的工具栏:

Dim cbrCmdBar作为命令栏

Dim字符串名称作为字符串

创建工具栏

strCBarName = "MyNewToolbar "

设置cbrCmdBar = Application。CommandBars.Add(名称:=strCBarName)

创建菜单栏

strCBarName = "MyNewMenuBar "

设置cbrCmdBar = Application。CommandBars.Add(名称:=strCBarName，位置:=msoBarMenuBar)

创建弹出菜单栏

strCBarName = "MyNewPopupMenu "

设置cbrCmdBar = Application。CommandBars.Add(名称:=strCBarName，位置:=msoBarPopup)

在创建了三个工具栏中的任何一个后，在工具栏上添加实际的命令按钮是有意义的，否则将没有任何效果。关于在工具栏上添加各种类型的按钮，请参考以后的“菜单和工具栏的使用-添加命令控件”主题。