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

文章作者 100test 发表时间 2007:12:21 11:47:21
来源 100Test.Com百考试题网

创建菜单和工具栏

　　你可以用自定义的对话框或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)

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