VBA专题10-10：使用VBA操控Excel界面之在功能区中添加自定义切换按钮控件

excelperfect

添加的步骤与本系列上一篇文章《VBA专题10-9：使用VBA操控Excel界面之在功能区中添加自定义按钮控件》中的步骤相同，即：新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码：

重新打开该工作簿后，在“Custom”选项卡中显示含两个切换按钮的组，如图1所示。我们看到，一个按钮带有标签，一个没有标签。可以对照XML代码看看自定义的界面是怎么创建的。

图1

在VBE中添加回调代码，返回切换按钮的状态：

'Callbackfor toggleBtn1 onAction

Sub Macro1(control As IRibbonControl, pressed As Boolean)

MsgBox control.ID & "的按下状态是:" & pressed

End Sub

'Callbackfor toggleBtn2 onAction

Sub Macro2(control As IRibbonControl, pressed As Boolean)

MsgBox control.ID & "的按下状态是:" & pressed

End Sub

单击自定义的按钮，会根据按钮是否被按下，弹出下图2所示的信息框，这是切换按钮被按下时显示的信息。

图2

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