Uncheck ActiveX Control checkbox

[sassy]

I am trying to uncheck all my ActiveX Control checkboxes in code at the end of my macro. I have tried several routes from the threads on this site but nothing has worked. Can anyone help??


Currently working with the following. My checkboxes are all named differently.

If IncomeReceived.Value = True Then
    IncomeReceived.Value = False
Else
End If

and have tried ...

'Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        'Uncheck ActiveX objects
        If sh.Type = msoOLEControlObject Then
            If TypeName(sh.OLEFormat.Object.Object) = "CheckBox" Then sh.OLEFormat.Object.Object = False
        End If
        'Uncheck Forms objects
        If sh.Type = msoFormControl Then
            If sh.FormControlType = xlCheckBox Then sh.OLEFormat.Object = False
        End If
    Next sh
End Sub

 

[kpark91]

I'm not too sure but shouldn't this

sh.OLEFormat.Object.Object = False

be

sh.Value = False

?

 

[taurean]

Did you try?

CheckBox1.Value = 1
CheckBox2.Value = 0

 

[sassy]

I get a Error with that code... Object Required.

 

[kpark91]

Maybe

sh.OLEFormat.Object.Value = False

What error did you have in your original code?

 

[sassy]

ok, it is not working with those changes. with the first code i posted, i get the object error, as well as with the suggestion from taurean (sorry!). The second code i posted just runs through and doesn't uncheck the boxes. I thought i had something declared wrong, but no matter what i change, it doesn't work.

Any other suggestions???

 

[Jaafar Tribak]

see if this works for you :

Sub test()
        
    Dim oObj As OLEObject
    
    On Error Resume Next
    For Each oObj In ActiveSheet.OLEObjects
        If TypeName(oObj.Object) = "CheckBox" Then oObj.Object.Value = 0
    Next
    ActiveSheet.CheckBoxes = False

End Sub

 

[sassy]

works like a charm..... thanks!!!!