VBA All set value of all toggle buttons in sheet to False

[Kra]

Hi all!

I have a sheet with 15 toggle buttons. I also have command buttons and I am trying to switch off all toggle buttons if command button is pressed. Is any way to achieve it in any shorter way than repeating this line 15 times for each command button?

Me.ToggleButton1.Value = False

 

[dmt32]

Hi,

try following & see if does what you want

Sub ResetToggleButtons()

    Dim OleObj As OLEObject
    
    For Each OleObj In ActiveSheet.OLEObjects
        If TypeName(OleObj.Object) = "ToggleButton" Then
            OleObj.Object.Value = False
        End If
    Next OleObj

End Sub

I have assumed sheet with togglebuttons is the ActiveSheet when code is run if not, Replace ActiveSheet with required worksheet object.

Dave

 

[Kra]

Hi,

try following & see if does what you want

Sub ResetToggleButtons()

    Dim OleObj As OLEObject
   
    For Each OleObj In ActiveSheet.OLEObjects
        If TypeName(OleObj.Object) = "ToggleButton" Then
            OleObj.Object.Value = False
        End If
    Next OleObj

End Sub

I have assumed sheet with togglebuttons is the ActiveSheet when code is run if not, Replace ActiveSheet with required worksheet object.

Dave

Works perfectly! Thank you!

 

[Kra]

Hi,

try following & see if does what you want

Sub ResetToggleButtons()

    Dim OleObj As OLEObject
   
    For Each OleObj In ActiveSheet.OLEObjects
        If TypeName(OleObj.Object) = "ToggleButton" Then
            OleObj.Object.Value = False
        End If
    Next OleObj

End Sub

I have assumed sheet with togglebuttons is the ActiveSheet when code is run if not, Replace ActiveSheet with required worksheet object.

Dave

I just noticed I have three extra toggle buttons that have to be excluded from this group. Is it possible to do it?

 

[Kra]

I just noticed I have three extra toggle buttons that have to be excluded from this group. Is it possible to do it?

I was able to move them to other sheet! Everything works great!