时间戳

首页 > 解决方案 > 循环通过 Active X 控件和设置属性

checkbox - 循环通过 Active X 控件和设置属性

问题描述

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

标签： checkboxradio-buttonactivexloopingselector

解决方案

将此代码用作更正，并且有效。

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

推荐阅读