拆分按钮控件是一个含有单击按钮和下拉按钮列表的组合控件。用户可以选择单击按钮,或者从下拉列表中选择单击其中一个按钮来执行相应的命令。
添加拆分按钮控件的步骤与本系列前面文章(参见:VBA专题10-10:使用VBA操控Excel界面之在功能区中添加自定义切换按钮控件、VBA专题10-9:使用VBA操控Excel界面之在功能区中添加自定义按钮控件)中的步骤相同,新建一个启用宏的工作簿并保存,关闭该工作簿,然后在CustomUI Editor中打开该工作簿,输入下面的XML代码:
重新打开该工作簿后,在“Custom”选项卡中显示含拆分按钮的组,如图1所示。
图1
在VBE中添加回调代码:
'Callbackfor Btn1 onAction
Sub Macro1(control As IRibbonControl)
MsgBox control.Tag & "被单击."
End Sub
'Callbackfor menuButton2 onAction
Sub Macro2(control As IRibbonControl)
MsgBox "执行Macro2"
End Sub
'Callbackfor menuButton3 onAction
Sub Macro3(control As IRibbonControl)
MsgBox "执行Macro3"
End Sub
单击自定义的拆分按钮,会根据按钮的不同显示不同的消息框,如图2所示为单击按钮Button1时显示的消息框。
注意,由于我们将Button1和menuButton1定义了相同的tag属性,因此单击拆分按钮中的单个按钮和菜单中的第一个按钮时都会弹出如图2所示的消息框。
图2
说明:本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours:Changingworkbook appearance》,仅供学习研究。