问与答68： 如何改变复选框颜色？

excelperfect

Q：我如何才能改变复选框内部的颜色？

A：在Excel中有3种不同类型的复选框，包括：用户窗体中的复选框、表单控件中的复选框、ActiveX控件中的复选框。下面分别介绍如何修改它们内部颜色。

用户窗体中的复选框

对于用户窗体中的复选框，可以设置其BackColor属性来修改其内部颜色，如下图1所示，通过在属性窗口中设置其属性来改变复选框内部的颜色。

图1

也可以使用VBA代码来修改其颜色：

Me.CheckBox1.BackColor= RGB(0, 255, 255)

运行效果如下图2所示。

图2

表单控件中的复选框

表单控件中的复选框位于功能区“开发工具”选项卡中“插入”按钮下的“表单控件”中，如下图3所示。

图3

在工作表中插入“复选框”后，单击右键，在快捷菜单中选择“设置控件格式”命令，在弹出的“设置控件格式”对话框的“颜色与线条”选项卡中，单击“颜色”下拉框，选择想要填充的颜色，如下图4所示。

图4

也可以使用VBA代码来修改上述复选框内部颜色：

Worksheets("Sheet1").CheckBoxes("CheckBox 1").Interior.Color = RGB(0, 255, 255)

或者：

Worksheets("Sheet1").Shapes("CheckBox 1").OLEFormat.Object.Interior.Color = RGB(0, 255, 255)

ActiveX控件中的复选框

ActiveX控件中的复选框位于功能区“开发工具”选项卡中“插入”按钮下的“ActiveX控件”中，如下图5所示。

图5

在工作表中插入ActiveX控件的“复选框”后，保持在设计模式下，单击属性，或者右键单击复选框，在弹出的快捷菜单中选择“属性”命令。在弹出的“属性”框中设置其BackColor属性值来修改复选框内部颜色，如下图6所示。

图6

也可使用VBA代码来修改上述复选框内部的颜色：

Worksheets("Sheet2").CheckBox21.BackColor= RGB(0, 255, 255)

或者：

Worksheets("Sheet2").OLEObjects("CheckBox21").Object.BackColor= RGB(0, 255, 255)

注意，复选框的名称必须与其属性名称一致。

示例

在当前工作表中添加一个表单控件复选框并指定其内部颜色。代码如下：

Sub Add_CheckBox()
   ActiveSheet.CheckBoxes.Add(Left:=Range("B2").Left, _
            Top:=Range("B2").Top, _
            Width:=Range("C2").Width,_
           Height:=Range("B2").Height).Select
    With Selection
        .Caption = "完美Excel"
        .LinkedCell = "Sheet3!$C$2"
        .Interior.Color = RGB(20, 200, 200)
    End With
End Sub

运行后的结果如下图7所示。

图7