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