<續(xù)>

問題21：如何添加自定義工具條？
解答：下面是添加自定義工具條的示例代碼，運行該代碼后將在“標準”工具條的右側(cè)出現(xiàn)一個名為“我的工具條”的自定義工具條，與Excel的內(nèi)置工具條一樣，您可以移動/懸浮它，并且單擊工具條里的命令可以執(zhí)行相應的操作。當然，如果您愿意的話，可以將本示例擴展，添加一些有用的命令在自定義的工具條上，從而擴展Excel的功能。
本示例中，該工具條是臨時的，當您關閉工作簿后，它不會保存。您最好在在Workbook_Open事件中調(diào)用”AddToolbar”程序，這樣當打開該工作簿時，自動添加自定義的工具條。
‘***********************************
Sub AddToolBar()
    Dim cmdbar As CommandBar
    Dim CmdBtn1 As CommandBarButton
    Dim strTBName As String

    strTBName = "我的工具條"
   
    '如該工具條已經(jīng)存在則不再添加
    If CheckForToolbar(strTBName) Then Exit Sub
   
    Set cmdbar = CommandBars.Add(Name:=strTBName, Position:=msoBarTop, Temporary:=True)
    cmdbar.Visible = True
   
    With cmdbar
        '放置該工具條在“標準”工具條的右側(cè)

        .Left = CommandBars("Standard").Width
        .RowIndex = CommandBars("Standard").RowIndex
       
        Set CmdBtn1 = .Controls.Add(msoControlButton, , , , True)
        With CmdBtn1
            .Style = msoButtonCaption
            .Caption = "我的工具條"
            .TooltipText = "這是一個示例工具條."
            .OnAction = "HelloWorld"
        End With
       
    End With
   
    Set cmdbar = Nothing
    Set CmdBtn1 = Nothing