经过本系列前面几篇文章(参见:VBA专题10-11:使用VBA操控Excel界面之在功能区中添加自定义拆分按钮控件、VBA专题10-10:使用VBA操控Excel界面之在功能区中添加自定义切换按钮控件、VBA专题10-9:使用VBA操控Excel界面之在功能区中添加自定义按钮控件)的学习,我们对于在功能区中添加自定义控件的步骤应该很熟悉了。
同样,这里讲解的添加组合框控件的步骤与前面介绍的步骤相同,新建一个启用宏的工作簿并保存,关闭该工作簿,然后在CustomUI Editor中打开该工作簿,输入下面的XML代码:
重新打开该工作簿后,在“Custom”选项卡中显示含组合框的组,如下图1所示。
图1
在VBE中添加回调代码:
'Callback for comboBox1 onChange
Sub Combo1_onChange(control As IRibbonControl, text As String)
MsgBox "在组合框中显示的文本是: "& text
End Sub
此时,从组合框中选择某项后,会显示如图2所示的消息框。
图2
小结:经过前面几篇文章的学习,我们应该熟悉在功能区中添加自定义控件的步骤通常有两大步,即首先编辑其XML文件添加界面元素,然后添加代码以实现功能。后续文章中,我们将进一步加深这方面的认识和理解。
说明:本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours:Changingworkbook appearance》,仅供学习研究。