创建激活外接程序的工具栏按钮

如前所述，工具栏只不过是命令条对象的另外一种形式。因此只要对代码作以下修改，即可将该外接程序示例由显示为菜单项方式转换到显示为工具栏按钮：

'将命令栏作为按钮放到该工具栏的第二十项之前，
'这里是窗体 coordinates 框。
Set mcbMenuCommandBarCtrl = _ 
VBInst.CommandBars("Standard").Controls.Add(1, , , 20)

如果要将外接程序放到“外接程序”工具栏而不是“标准”工具栏，首先在“外接程序管理器”中激活外接程序工具栏，然后修改 CommandBar 对象的引用名称。以下代码将添加一个按钮到“外接程序”工具栏的首位（最左边）。

'将命令条作为按钮放到外接程序工具栏。
Set mcbMenuCommandBarCtrl = _ 
VBInst.CommandBars("Add-Ins").Controls.Add(1)