Set ActiveX CheckBox Values OnMouseUp - ClickEvent Workaround

[bs0d]

I'm having the issue where the click event gets triggered for my activex checkboxes. If I change the OLEObject's behavior to _MouseUp, then that seems to fix the click event issue. But a new problem surfaces in setting the value of the checkbox. A simple: Sheets("SheetName").chkBoxName.value = TRUE or FALSE does not work.

Does anyone have feedback on resolving this? I can get the checkbox to set to TRUE by creating a custom function that sets the value outside of the _MouseUp subroutine, but it will not set the false value. (Code below):

Sub checkbox_ClickSet (clickValue as Boolean, chkBoxName as OLEObject)
chkBoxName.Object.Value = clickValue
end sub

call in mycheckbox_MouseUp:

Module1.checkbox_ClickSet True, Sheets("SheetName").OLEObjects("mycheckbox")

Note: I did try application.enableEvents = False (before) , back to = False (after code) , but that' did work for me.

Thanks,

 

[bs0d]

Perhaps there are other ways to just 'rest' or 'clear' an activex object. Since unchecked is the default, that may work. Any thoughts?

 

[bs0d]

Unable to find a solution so far. If anyone has feedback on ways to prevent _click events from triggering and setting checkbox values it would be appreciated.

 

[bs0d]

I found the answer, credits to Jon Peltier:

http://www.mrexcel.com/forum/excel-...-visual-basic-applications-2.html#post4070750