Form Control - Checkbox - Background changes colour when clicked

[longyp]

How do i prevent the background colour of a checkbox changing when I click on it.

I have tried various settings but one problem I have is the sheet background colour is not available in the palette of the checkbox

[Kenneth Hobs]

I don't know what you mean. You can enter the hex code or decimal number for the backcolor property at design time.

Private Sub CheckBox1_Click()
CheckBox1.BackColor = CheckBox1.TopLeftCell.Interior.Color
End Sub
If you want to do it at design time and don't know the numerical number then in the Immediate window:
?Sheet1.CheckBox1.TopLeftCell.Interior.Color

[mikerickson]

For a checkbox from the Forms menu, you could use code like this

With ActiveSheet.Shapes("Check Box 1")
.Fill.ForeColor.SchemeColor = IIf(.ControlFormat.Value = xlOn, 13, 4): Rem toggles colors
.Fill.Visible = msoTrue

'.Fill.Visible = IIf(.ControlFormat.Value = xlOn, msoTrue, msoFalse): Rem unComment to toggle tranparent
End With

[longyp]

Ken - thanks - again!