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

excelperfect

在本专题前面的一系列文章中，我们已经讲解了如何在功能区中添加自定义的按钮控件、切换按钮控件、拆分按钮控件、组合框控件、下拉控件、库控件、标签控件，添加自定义控件的步骤相同，都是先编写XML代码在工作表界面中添加控件，然后编写VBA代码实现相应的功能。本文继续介绍如何在功能区中添加自定义复选框控件。

在功能区中添加复选框控件的步骤与前面文章介绍的相同，新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码：

在标准VBA模块中的代码如下：

'Callback for checkBox1onAction
Sub Checkbox1_change(control As IRibbonControl, pressed As Boolean)
    MsgBox "复选框是否被选取: "& pressed
End Sub

此时，在自定义选项卡中的复选框控件如下图所示：

当选取该复选框后，会弹出下图所示的消息：

说明：本专题系列大部分内容学习整理自《Dissect and Learn Excel VBA in 24 Hours：Changing workbook appearance》，仅供学习研究。注：如果你有兴趣，你可以到知识星球App的完美Excel社群下载这本书的完整中文版电子书。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。