在Office2000中，就用戶界面豐富程度而論，Word以56個工具欄（Toolbar）、50個彈出式菜單（Popup Menu）雄居首位，但Excel（工具欄40個、彈出式菜單51個）和PowerPoint（工具欄43個、彈出式菜單25個）也相差不遠。大多數用戶可能從來沒有見過所有這些工具欄，甚至許多用戶不知道Office提供了這麼多命令工具。
雖然我們可以用【視圖/工具欄】菜單隱藏或顯示一些工具欄，但這個菜單並沒有列出全部的工具欄。對於Word，從【工具/自定義】菜單可以看到的工具欄稍微多幾個，但仍遠遠不到56個。在Excel和PowerPoint也類似。那麼，這些丟失的工具欄到哪裡去了呢？如何才能看到這些工具欄？如何將這些工具欄顯示到菜單中？
一、工具欄背後的工具欄
Office工具欄上的相當一部分按鈕是所謂的下拉式按鈕。單擊這些下拉按鈕會顯示出子菜單。其中一部分子菜單比較特殊，上面帶有灰色的橫條（Microsoft稱之為″移動把手”）。例如Word【格式】工具欄的【字體顏色】按鈕，單擊它的小箭頭並把鼠標移到移動把手上，灰條顏色變藍並提示″拖動可使此菜單浮動”。按住移動把手可把菜單從工具欄拖下來，使之浮動，如圖1所示。
一旦菜單拖下來成為浮動的工具欄，【視圖/工具欄】菜單下會自動列出該工具欄；如果關閉該工具欄，則菜單下面的名字也不見了。因此，如果要再次顯示這個工具欄，還是要重復原來的拖動過程。
二、用宏顯示隱藏工具欄
大多數可以拖下來的菜單與畫圖或顏色功能相關，而且要從【繪圖】工具欄訪問。下表給出其中一部分工具欄的標題及其名字：
名字
標題
Fill Color
填充顏色
Line Color
線條顏色
Font Color
字體顏色
Shading Color
底紋色
Borders
邊框
在宏中，可以通過名字訪問這些菜單，或將這些菜單顯示為浮動工具欄。例如，要顯示【字體顏色】工具欄，可以用如下命令：
CommandBars(″Font Color″).Visible = True
再舉一個例子。如果經常要為Word文檔加上彩色標注，則最好能快速訪問【字體顏色】、【線條顏色】、【填充顏色】和【標注】四個工具欄。可以寫一個子過程：
Sub ShowCalloutToolbars(OnOrOff As Boolean)
CommandBars(″Callouts″).Visible = OnOrOff
CommandBars(″Font Color″).Visible = OnOrOff
CommandBars(″Line Color″).Visible = OnOrOff
CommandBars(″Fill Color″).Visible = OnOrOff
End Sub
然後用如下兩個命令分別顯示和隱藏上述四個工具欄：
ShowCalloutToolbars True
ShowCalloutToolbars False
當然，用宏來顯示或關閉某些隱藏工具欄，在許多其他情形下也是很有幫助的，這些應用場合就有待讀者自己去發現了。
三、在菜單中列出隱藏工具欄
如前所述，【視圖/工具欄】菜單是不顯示隱藏工具欄的，也不存在定制該菜單加入額外工具欄的方法，但這並不是說我們不能將這些工具欄顯示在自己創建的菜單中。接下來介紹的方法可以在【視圖/工具欄】菜單下面加上一個【隱藏工具欄】菜單。圖2顯示的是Word中的【隱藏工具欄】菜單，在其他Office應用中也相似。
首先我們需要一個宏AutoExec，該宏在Word啟動的時候自動運行，調用AddHiddenToolBarsOption，後者在視圖菜單的【工具欄】下面增加 【隱藏工具欄】 菜單。AutoExit在Word關閉的時候運行，調用RemoveHiddenToolBarsOption，刪除【隱藏工具欄】菜單。
Sub AutoExec()
CustomizationContext = NormalTemplate
AddHiddenToolBarsOption
End Sub
Sub AutoExit()
CustomizationContext = NormalTemplate
RemoveHiddenToolBarsOption
End Sub
Sub AddHiddenToolBarsOption()
' 在視圖菜單的'工具欄'下面增加'隱藏工具欄'菜單項
RemoveHiddenToolBarsOption
With CommandBars(″VIEw″)
With .Controls.Add(Type:=msoControl彈出式, _
Before:=.Controls(″工具欄(＆T)″).Index ＋ 1)
.Caption = ″隱藏工具欄(＆H)″
.OnAction = ″ListHiddenToolbars″
End With
End With
En
[1] [2] 下一頁
