用VBA代碼處理菜單和工具欄之二

創(chuàng)建菜單和工具欄
    你可以用自定義的對(duì)話框或VBA在任何一個(gè)OFFICE組件應(yīng)用程序中創(chuàng)建工具欄（菜單欄）。在access中，你也可以在現(xiàn)有的工具欄上右擊，然后在出現(xiàn)的彈出式菜單中選擇自定義來(lái)創(chuàng)建或修改已有的工具欄，不管怎樣，你可以用VBA在任何一個(gè)OFFICE組件應(yīng)用程序中來(lái)創(chuàng)建它工具欄。
    用CommandBars集合中的Add方法可以創(chuàng)建一個(gè)新的工具欄，但是Add方法默認(rèn)的是創(chuàng)建一個(gè)工具欄，如果要?jiǎng)?chuàng)建一個(gè)新的菜單欄或者是彈出式菜單欄，你可以用msoBarPopup 和msoBarMenuBar常數(shù)在Add方法的指定位置指是創(chuàng)建這兩種形式的工具欄。
    下面的示例代碼說(shuō)明了如何分別創(chuàng)建這三種類型的工具欄：
     Dim cbrCmdBar As CommandBar
     Dim strCBarName As String
     '創(chuàng)建工具欄
     strCBarName = "MyNewToolbar"
     Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName)
     '創(chuàng)建菜單欄
     strCBarName = "MyNewMenuBar"
     Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarMenuBar)
     '創(chuàng)建彈出式菜單欄
     strCBarName = "MyNewPopupMenu"
     Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarPopup)
    創(chuàng)建好三種工具欄中的任一種后，必需在工具欄上面加入實(shí)際的命令按鈕才有意義，否則它是沒(méi)有什么作用的，關(guān)于如果在工具欄上增加各種類型的按鈕，請(qǐng)參考以后的“菜單和工具欄的使用-增加命令控件”專題。