Tengo en una hoja una buena cantidad de "Cuadros de grupo", que en su
interior contienen varios "Botones de opción" (hechos con la -Barra de
formularios-) y funcionan perfectamente.
Al respecto me han surgido varias inquietudes:
1) Como hago o por donde, puedo saber o conocer el nombre de cada
botón?
2) Puedo cambiar el nombre de los botones por el que yo quiera
(siempre y cuando sea coherente)?
3) Como puedo hacer para que de manera automática (supongo que con una
macro), cada vez que alguien utilice esa hoja, encuentre todos los
botones limpios; es decir con su "Valor sin activar", el que se
encuentra en la pestaña "Control" del "Formato de control"
La grabadora de macros me provee el siguiente código, pero al
ejecutarlo limpia los botones de un solo cuadro de grupo:
Sub LimpiarBotones()
' Grabada el 13-05-2010 - ElProfe
ActiveSheet.Shapes("Option Button 21").Select
With Selection
.Value = xlOff
.LinkedCell = ""
.Display3DShading = True
End With
ActiveSheet.Shapes("Option Button 43").Select
With Selection
.Value = xlOff
.LinkedCell = ""
.Display3DShading = True
End With
ActiveSheet.Shapes("Option Button 31").Select
With Selection
.Value = xlOff
.LinkedCell = ""
.Display3DShading = True
End With
End Sub
Bueno, eso era todo. Gracias anrticipadas por los que se interesen en
el tema y por la ayuda que me puedan brindar.
Leer las respuestas