设置复选框背景透明

Question

我不能为我的生活找到如何将表单控件复选框背景设置为透明

Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes
    cb.Value = -4146
    cb.Interior.Color = ???
Next cb

要清楚我在谈论工作表上的表单复选框，而不是表单而不是ActiveX复选框（开发人员菜单＆gt;插入＆gt;表单控件）。

我录制了一个宏并得到了这个，但我想知道是否有办法通过Checkbox对象而不是使用Shape对象。即使是指向表单控件的MSDN Dev页面的链接也会有帮助，因为我无法找到它！

ActiveSheet.Shapes("cb1_1").Fill.Visible = msoFalse

Answer 1

cb.Interior.ColorIndex = xlNone