Pole value of Option buttons

  • Thread starter Thread starter Snowfire
  • Start date Start date
S

Snowfire

I can use this to get the option buttons name...

For Each ctl In ActiveSheet.Shapes
If Left(ctl.Name, 12) = "OptionButton" Then MsgBox ctl.Name
Next ctl

How can I modify it to get the selected or not value or status?
 
I'd use:

Dim OLEObj As OLEObject
For Each OLEObj In Activesheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.OptionButton Then
msgbox OLEObj.Object.Value
End If
Next OLEObj

If you renamed any of your optionbuttons to avoid them in the loop, then my
suggestion won't work.
 
I'd use:

    Dim OLEObj As OLEObject    
    For Each OLEObj In Activesheet.OLEObjects
        If TypeOf OLEObj.Object Is MSForms.OptionButton Then
            msgbox OLEObj.Object.Value
        End If
    Next OLEObj

If you renamed any of your optionbuttons to avoid them in the loop, then my
suggestion won't work.
Click to expand...
Dave Peterson
Click to expand...

Works a treat !!!! Thanks Dave....
 
Back
Top