循环通过 Activex 控件和设置属性

Question

每次我运行此代码时，都不会在选项按钮和复选框之间进行伪装。我在代码中放置了一个 msgbox，它出现了一个选项按钮并显示在复选框的代码下，事实上，当我作为测试运行时，代码根本不会出现在选项按钮的活动控制代码下遗漏了什么。

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