Excel 97 中引用了一种处理工具栏和菜单嘚全新方式这些用户界面元素是CommandBar对象。通常称为工具栏的实际上是三种命令栏之一：

• 工具栏：带有一个或多个可单击的控件

• 菜单栏：兩个内置菜单栏是工作表菜单栏和图表菜单栏。

• 快捷菜单：当用户或击某个对象时弹出的菜单

基于兼容性的考虑，Excel 2007 仍支持CommandBar对象——但其功能已显著减少终端用户不再可以创建自定义工具栏。然而VBA编程人员仍然可以创建和使用CommandBar对象（参见第/office/2006/01/customui">

该RibbonUI代码引用了4个VBA回调函数（每個函数都将在稍后进行介绍）：

GetPressed：控件失效（用户激活另一个工作表）时执行。

GetEnabled：控件失效（用户激活另一个工作表）时执行

Initialize过程创建叻一个名为MyRibbon的IRibbonUI对象。注意MyRibbon是一个公有变量，因此可以从模块的其他过程中获取

创建了一个简单的事件程序，该过程在工作表被激活时執行它位于ThisWorkbook代码模块中，调用CheckPageBreakDisplay过程：

CheckPageBreakDisplay过程使复选框控件失效换言之，它销毁了与该控件相关的所有数据

注意，returnVal参数是ByRef传递这意味著代码可以改变该参数的值。这也确实发生了在GetPressed过程中，returnVal变量被设置为活动工作表的DisplayPageBreaks属性的状态产生的结果是，如果分页符被显示則控件的Pressed参数为True（控件被选中）。否则控件未被选中。

在GetEnabled过程中如果活动工作表是一个工作表（与图表工作表相对），则returnVal变量被设置為True因此，只有在活动表为一个工作表时该控件才被激活。

如果用户选中复选框则传递的参数为True：如果未选中复选框，则传递的参数為False代码据此设置DisplayPageBreaks属性。

223。4 功能区控件演示

本小节简要介绍了RibbonX代码和VBA回调过程

1.创建一个新选项卡。

创建新选项卡的RibbonX代码如下：

提示：洳果想要创建一个最小的UI可以使用ribbon标记的startFromScratch属性。如果将其设置为True那么所有的内置选项卡都会被隐藏。此外除了“新建”、“打开”、“Excel选项“和”退出“命令之外，所有的Office按钮菜单命令都会被隐藏