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

刪除菜單和工具欄
    你可以通過在現(xiàn)有的工具欄上右擊，在彈出的自定義對(duì)話框中刪除工具欄和菜單欄或者通過VBA刪除他們，但是你只能通過VBA來刪除彈出式菜單欄，用CommandBars集合中的Delete方法從當(dāng)前CommandBars集合中刪除一個(gè)已經(jīng)存在的彈出式菜單欄，可以參考下面的方法：
    Function CBDeleteCBControl(strCBarName As String, _
     strCtlName As String)
     On Error Resume Next
     Application.CommandBars(strCBarName).Controls(strCtlName).Delete
    End Function
    注意：如果你要?jiǎng)h除的工具欄沒有在參數(shù)strCBarName中指定，在上面的函數(shù)中將不會(huì)出現(xiàn)錯(cuò)誤提示，是通過On Error Resume Next這一句繼續(xù)往下執(zhí)行。