VBA专题10-13：使用VBA操控Excel界面之在功能区中添加自定义下拉控件

excelperfect

在上篇文章《VBA专题10-12：使用VBA操控Excel界面之在功能区中添加自定义组合框控件》中，我们详细介绍了如何在自定义功能区中添加组合框。使用组合框，我们不仅可以从中选取列表项，还可以在其中输入文本。然而，本文介绍的下拉控件仅允许用户从控件下拉项中进行选择。

正如前面的文章中讲解的，在功能区中添加下拉控件的步骤都是相同的。新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码：

重新打开该工作簿后，在“Custom”选项卡中显示了含有下拉列表框的组，如下图1所示。

图1

在VBE中添加回调代码：

'Callback for dropDown1 onAction

Sub SelectedItem(control As IRibbonControl, id As String, index As Integer)

MsgBox '你选取了Template'& index + 1

End Sub

此时，从下拉列表中选择某项后，会显示如下图2所示的消息框。

图2

说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，仅供学习研究。