Visual Basic code

[Guest]

I have somehow got thousnads of option buttons in my Excel worksheet. I would
like to write a simple code that would remove them using a macro instead of
manually deleting them. The option buttons are not in continuos numbers so
the code needs to check if the button exists first and then delete.

I am a novice and cannot write the above code.

Thanks

 

[Guest]

This code assumes you got your buttons from the Forms Toolbar...

Sub RemoveButtons()
Dim btn As Button

For Each btn In Buttons
btn.Delete
Next btn
End Sub

 

[Guest]

Hi,

If they are option buttons from the Control toolbox, then try something like
this:

Sub test()

Dim o As OLEObject

For Each o In ActiveSheet.OLEObjects
If TypeName(o.Object) = "OptionButton" Then
o.Delete
End If
Next o

End Sub


If they are option buttons from the Forms toolbox, then something like this:

Sub test2()

Dim b As OptionButton

For Each b In ActiveSheet.OptionButtons
b.Delete
Next b

End Sub

 

[Guest]

Oops you wanted option buttons... Try this...

Sub RemoveButtons()
Dim btn As OptionButton

For Each btn In OptionButtons
btn.Delete
Next btn
End Sub

 

[Guest]

The code stopped in line "For Each btn in Buttons"
RJ

 

[Guest]

Many Thanks.

Test 2 worked perfect.

RJ

Hi,

If they are option buttons from the Control toolbox, then try something like
this:

Sub test()

Dim o As OLEObject

For Each o In ActiveSheet.OLEObjects
If TypeName(o.Object) = "OptionButton" Then
o.Delete
End If
Next o

End Sub


If they are option buttons from the Forms toolbox, then something like this:

Sub test2()

Dim b As OptionButton

For Each b In ActiveSheet.OptionButtons
b.Delete
Next b

End Sub

 

[Dave Peterson]

If there aren't too many:

ActiveSheet.OptionButtons.delete

should work, too.

 

[Guest]

Thanks Dave. I didn't know you could do that.

 

[Dave Peterson]

The bad news is that it fails when that number of shapes gets large. But if you
know your worksheet (or can live with the error), then it's a nice way to start.