Excel VBA开发技术大全 第20章

第20章 使用RibbonX

Case \

returnedVal = \ Case \

returnedVal = \ End Select End Sub

回调函数的参数可参见本章20.2.4节中的介绍。以上代码通过模块变量str1，判断当前使用过的按钮，再使用参数returnedVal返回对应按钮的图像ID（使用内置图像）。

（7）接着使用类似的方法编写getLabel属性设置的回调函数，用来修改按钮的显示文本，具体代码如下：

Sub rxButton_getLabel(ByRef Control As IRibbonControl, ByRef ReturnValue As Variant)

If str1 = \ Select Case str1 Case \

ReturnValue = \顶部\ Case \

ReturnValue = \左侧\ Case \

ReturnValue = \右侧\ Case \

ReturnValue = \底部\ End Select End Sub

（8）编写getSupertip属性设置的回调函数，用来设置按钮的提示文字，具体代码如下：

Sub rxButton_getSupertip(ByRef Control As IRibbonControl, ByRef ReturnValue As Variant)

If str1 = \ Select Case str1 Case \

ReturnValue = \移动到区域顶部\ Case \

ReturnValue = \移动到区域左侧\ Case \

ReturnValue = \移动到区域右侧\ Case \

ReturnValue = \移动到区域底部\ End Select End Sub

（9）当用户单击元素