如果想在Excel 2007中創(chuàng)建一個(gè)工具欄，應(yīng)注意下面的一些限制：

　　(1)不能夠自由浮動(dòng)；

　　(2)總是顯示在加載項(xiàng)選項(xiàng)卡自定義工具欄組中；

　　(3)Excel會(huì)忽略一些CommandBar的屬性和方法；

　　創(chuàng)建工具欄的代碼：

　　這里的代碼假定有一個(gè)帶有兩個(gè)名為Macro1和Macro2宏的工作簿，并且在該工作簿打開時(shí)創(chuàng)建這個(gè)工具欄，在關(guān)閉該工作簿時(shí)刪除這個(gè)工具欄。

　　注意，與Ribbon定制不同，不管當(dāng)前是哪個(gè)工作簿，自定義工具欄者是可見的。

　　在ThisWorkbook代碼模塊中，輸入下面的過(guò)程。第一個(gè)過(guò)程為在打開工作簿時(shí)調(diào)用創(chuàng)建工具欄的過(guò)程，第二個(gè)過(guò)程為在關(guān)閉工作簿時(shí)調(diào)用刪除工具欄的過(guò)程。

　　PRivate Sub Workbook_Open()
　　Call CreateToolbar
　　End SubPrivate
　　Sub Workbook_BeforeClose(Cancel As Boolean)
　　Call DeleteToolbar
　　End Sub 過(guò)程CreateToolbar的代碼如下:
　　Const TOOLBARNAME As String = "我的工具欄"
　　Sub CreateToolbar()
　　Dim TBar As CommandBar
　　Dim Btn As CommandBarButton
　　'如果存在則刪除已存在的工具欄
　　On Error Resume Next
　　CommandBars(TOOLBARNAME).Delete
　　On Error GoTo 0
　　'創(chuàng)建工具欄
　　Set TBar = CommandBars.Add
　　With TBar
　　.Name = TOOLBARNAME
　　.Visible = True
　　End With
　　'添加按鈕
　　Set Btn = TBar.Controls.Add(Type:=msoControlButton)
　　With Btn
　　.FaceId = 300
　　.
　　.Caption = "這里是Macro1的提示"
　　End With
　　'添加另一個(gè)按鈕
　　Set Btn = TBar.Controls.Add(Type:=msoControlButton)
　　With Btn
　　.FaceId = 25
　　.
　　.Caption = "這里是Macro2的提示"
　　End With
　　End Sub

　　代碼中使用了一個(gè)模塊級(jí)的常量TOOLBARNAME，用來(lái)存儲(chǔ)工具欄的名稱，并用于這兩個(gè)過(guò)程中。

　　如果已存在具有相同名字的工具欄，則該過(guò)程先刪除該工具欄。這樣將會(huì)避免企圖創(chuàng)建與已存在的工具欄有相同名稱的工具欄時(shí)，產(chǎn)生錯(cuò)誤。

　　通過(guò)使用CommandBars對(duì)象的Add方法來(lái)創(chuàng)建該工具欄，使用Controls對(duì)象的Add方法來(lái)添加兩個(gè)按鈕，每個(gè)按鈕都有三個(gè)屬性：

　　FaceID:確定顯示在按鈕中的圖像的數(shù)字。

　　OnAction:在單擊按鈕時(shí)執(zhí)行的宏。

　　Caption:鼠標(biāo)指針懸浮在按鈕上時(shí)顯示的屏幕提示。

　　技巧：不僅可以設(shè)置FaceID屬性，還可以設(shè)置Picture屬性，使用任何的imageMso圖像。例如，下面的語(yǔ)句晶粒示一個(gè)綠色的勾號(hào)：　       PLAIN TEXT
　　Visual Basic:
　　.Picture = application.CommandBars.GetImageMso _
　　("AcceptInvitation", 16, 16)
　　關(guān)于imageMso圖像的更多信息，請(qǐng)參見“定制RibbonX”。

　　在關(guān)閉工作簿時(shí)，觸發(fā)Workbook_BeforeClose事件過(guò)程，調(diào)用過(guò)程DeleteToolbar: 　　Sub DeleteToolbar()
　　On Error Resume Next
　　CommandBars(TOOLBARNAME).Delete
　　On Error GoTo 0
　　End Sub