Unable to reset active x control object Values

[learn2vba]

I would like to reference this old thread as this is exactly what I am trying to do:

Reset to all default choices on ActiveX controls

Hi, I have a workbook where I have many ActiveX controls as well as forms controls which will set at certain defaults once the workbook is opened. I would like to set-up a command button named "clear all" that the user could click on to reset all the controls back to their default value. I...

www.mrexcel.com

Just reposting what I said in that thread:

Basically, it doesnt seem to work for me. I know the macros work as I tested each of them by creating new objects for each control but the existing ones doesn't get affected for some reason.

The logic I arrived at is maybe because the objects are part of "groups"?

Any assistance is greatly appreciated.

Best Regards,

 

[learn2vba]

Bumping

 

[learn2vba]

Just adding more information:

I have 3 grouped Form control check boxes which I will name as Checkbox_group1, Checkbox_group2 and Checkbox_group3. All of which has 6 to 9 checkboxes.
There are also some other individual checkboxes within the Worksheet.

When I run this macro:

Sub ClearFormsCheckboxes()
Dim chBox As CheckBox

For Each chBox In ActiveSheet.CheckBoxes
If chBox.Value = 1 Then
chBox.Value = 0
End If
Next
End Sub

All individual checkboxes gets unchecked but the ones in groups does not get affected. I still can't figure out why.

Please help.

 

[learn2vba]

bumping

 

[mikerickson]

You in this thread title and in the link, you mentioned ActiveX controls, but in post #3 you speak of Forms controls and groups.
AFAIK, Grouping controls is only for controls for the Forms menu.

Controls from the Forms menu are Shapes and they get their values set through the .ControlFormat property of that shape.
Grouping the controls shouldn't prevent you from addressing them individually.
What control's values do you want reset to what values?

 

[learn2vba]

Hello Mike,

Thank you very much for the reply. All my checkboxes are from the Forms menu. I was still thinking of the referred thread when I made my title so I apologize for the confusion.

I need all the checkboxes to be "unchecked" whenever a selection from a combobox option is selected. The macro I posted does not work for the "grouped checkboxes" in the worksheet but works for individual ones.

Also, I need these "grouped checkboxes" due to functional features I added to the Worksheet. So I really need to keep them grouped. Please tell me if you need other information from me. Sorry for the late reply. I am currently working on this project. I'll make sure to keep my eyes glued to this thread.

Thank you in advance!

Best Regards,

 

[mikerickson]

Leave them grouped.
Are these CheckBoxes or OptionButtons. Typically, putting a checkbox inside a Group Box.

Are these controls in a Group Box (a seperate item from the Forms Menu) or are they Grouped (selected and the Group option clicked on the Shape Format ribbon
.

 

[learn2vba]

They are checkboxes that I've selected individually and grouped via the group option. Some of these have functions when checked if that helps.

 

[mikerickson]

I was started down the GroupBox route. This information does help. Let me work on it a while and get back to you.

 

[mikerickson]

This code should uncheck all of the checkboxes in Group 1

Sub test()
    Dim oneShape As Shape
    
    For Each oneShape In ActiveSheet.Shapes("Group 1").GroupItems
        With oneShape
            If .Type = msoFormControl Then
                If .FormControlType = xlCheckBox Then
                    .ControlFormat.Value = xlOff
                End If
            End If
        End With
    Next oneShape
End Sub