VBA专题10-12：使用VBA操控Excel界面之在功能区中添加自定义组合框控件

excelperfect

经过本系列前面几篇文章（参见：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》，仅供学习研究。