<续>
问题21：如何添加自定义工具条？
解答：下面是添加自定义工具条的示例代码，运行该代码后将在“标准”工具条的右侧出现一个名为“我的工具条”的自定义工具条，与Excel的内置工具条一样，您可以移动/悬浮它，并且单击工具条里的命令可以执行相应的操作。当然，如果您愿意的话，可以将本示例扩展，添加一些有用的命令在自定义的工具条上，从而扩展Excel的功能。
本示例中，该工具条是临时的，当您关闭工作簿后，它不会保存。您最好在在Workbook_Open事件中调用”AddToolbar”程序，这样当打开该工作簿时，自动添加自定义的工具条。
‘***********************************
Sub AddToolBar()
Dim cmdbar As CommandBar
Dim CmdBtn1 As CommandBarButton
Dim strTBName As String
strTBName = "我的工具条"
'如该工具条已经存在则不再添加
If CheckForToolbar(strTBName) Then Exit Sub
Set cmdbar = CommandBars.Add(Name:=strTBName, Position:=msoBarTop, Temporary:=True)
cmdbar.Visible = True
With cmdbar
'放置该工具条在“标准”工具条的右侧
.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
===================================================================
