遍历Active X控件和设置属性

Question

每次运行此代码时，都不会在选项按钮和复选框之间进行模拟。我在代码中放置了一个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```

Answer 1

将此代码用作更正，并且可以正常工作。

For Each oleobj In sht.OLEObjects
If TypeName(oleobj.Object) = "OptionButton" Then
     ReSetActiveXOption oleObj.Object
End If
Next