excel - 如何使 OptionButton ActiveX 控件将背景颜色更改为透明？

Question

我在工作表中添加了一些 Excel ActiveX 控件选项按钮，我需要将背景色更改为透明。我使用了以下代码，但它不起作用。

Sub removecolor()
    Dim cb As OptionButton
    For Each cb In ActiveSheet.OptionButton
        cb.Interior.ColorIndex = xlNone
    Next cb
End Sub

请给我一个线索好吗？

Answer 1

要使这项工作成功，您应该注意两点:

1. 要访问工作表上的 OptionButton 控件，您需要迭代其 OLEObjects 集合。

2. ActiveX 控件没有 Interior.ColorIndex 属性。但是，它确实具有 BackColor 和 BackStyle 属性。在这种情况下，您应该使用 BackStyle 以使控件透明。

这应该有效:

Sub RemoveColor()
    For Each obj In ActiveSheet.OLEObjects
        If TypeName(obj.Object) = "OptionButton" Then
            obj.Object.BackStyle = fmBackStyleTransparent
        End If
    Next
End Sub

如果您不喜欢以字符串形式提供类型名称，可以将条件替换为:

If TypeOf obj.Object Is MSForms.OptionButton Then   ' etc.