从 VBA Excel 中删除 OLEObjects 复选框

如何解决从 VBA Excel 中删除 OLEObjects 复选框

效果很好

For Each oleObject In wks.OLEObjects
    If TypeName(oleObject.Object) = "OptionButton" Then oleObj.Delete
Next

但是当尝试删除复选框时不起作用。什么都没发生

For Each oleObject In wks.OLEObjects
    If TypeName(oleObject.Object) = "CheckBox" Then oleObj.Delete
Next

解决方法

使用 progId。

Sub test()
    Dim wks As Worksheet
    Dim obj As OLEObject
    Set wks = ActiveSheet
    
    For Each obj In wks.OLEObjects
        Debug.Print TypeName(obj)
        Debug.Print obj.progID
        If obj.progID = "Forms.CheckBox.1" Then obj.Delete
    Next
End Sub