每次运行此代码时，都不会在选项按钮和复选框之间造成混淆。我在代码中放置了一个msgbox，它出现在一个optionbuton上，并显示在checkbox的代码下。实际上，在我进行测试时，该代码永远不会显示在option按钮的活动控制代码下遗漏了什么。

Dim oleObj As OLEObject

For Each oleObj In Sht.OLEObjects
    Select Case True
        Case TypeOf oleObj.Object Is MSForms.CheckBox
            MsgBox oleObj.Name
            ResetactiveXCheckBox oleObj.Object

        Case TypeOf oleObj.Object Is MSForms.OptionButton
            ReSetactiveXOption oleObj.Object

    End Select
Next```