Excel2007中创建工具栏的技巧代码(2)

　　代码中使用了一个模块级的常量TOOLBARNAME，用来存储工具栏的名称，并用于这两个过程中。　

　　如果已存在具有相同名字的工具栏，则该过程先删除该工具栏。这样将会避免企图创建与已存在的工具栏有相同名称的工具栏时，产生错误。　　

　　通过使用CommandBars对象的Add方法来创建该工具栏，使用Controls对象的Add方法来添加两个按钮，每个按钮都有三个属性：　　

　　FaceID:确定显示在按钮中的图像的数字。　　

　　OnAction:在单击按钮时执行的宏。　　

　　Caption:鼠标指针悬浮在按钮上时显示的屏幕提示。　　

　　技巧：不仅可以设置FaceID属性，还可以设置Picture属性，使用任何的imageMso图像。例如，下面的语句晶粒示一个绿色的勾号：　　

　　PLAIN TEXT

　　Visual Basic:

　　.Picture = Application.CommandBars.GetImageMso _

　　("AcceptInvitation", 16, 16)

　　关于imageMso图像的更多信息，请参见“定制RibbonX”。

　　在关闭工作簿时，触发Workbook_BeforeClose事件过程，调用过程DeleteToolbar:

　　Sub DeleteToolbar()

　　On Error Resume Next

　　CommandBars(TOOLBARNAME).Delete

　　On Error GoTo 0

　　End Sub