Grupos de opciones

Ya sé porque es...

Resulta que si ajusto demasiado el borde del grupo de opciones hacia los
botones de opción se queda dicho botón marcado... :((

Saludos,
Martí


"marjan" <de hotmail : centralbib> ha escrit en el missatge dels grups de
discussió:%

Hola de nuevo,

Ahora le toca el turno al grupo de opciones...

En mi encuesta he ido añadiendo unos botones de opción del 1 al 10 y los
he puesto dentro de un Grupo de opciones.

Si voy al primer botón de opción y le digo que guarde el valor en una
celda determinada lo hace y para todos los botones: muy bién !

De repente, si muevo o copio este grupo de opciones, me doy cuenta que
seleccionando el botón 2, por ejemplo, también me marca el 10. Cambio las
propiedades a "Desmarcado" para todos los botones, pero sigue igual.

He rehecho varias veces el grupo y la primera vez lo hace bién, pero al
Mover o Copiar o no sé porque vuelve a pasar lo mismo...

En Access, Hago un grupo de opciones y guardo el valor de dicho grupo en
un campo, pero aquí, en Propiedades del Grupo (o cuadro) no aparece dicha
opcion...

Alguien puede ayudarme y decirme porqué pasa eso? o cómo podría hacerlo?

Gracias,

Martí

"marjan" <de hotmail : centralbib> escribió en el mensaje news:

Ya sé porque es...

Resulta que si ajusto demasiado el borde del grupo de opciones hacia los
botones de opción se queda dicho botón marcado... :((

Hola Martí,

en realidad sucede que los botones de opción pertenecerán a aquellos cuadros de grupo en los que estén circunscritos, por lo que aquellos botones de opción que tengan alguno de los límites fuera del cuadro de grupo, aunque estén en casi su totalidad dentro, serán excluidos del grupo, y pasarán a formar parte del grupo exterior más cercano en el que estén en su totalidad dentro, y si no están totalmente dentro de ninguno, pertenecerán en última instancia al grupo externo de la hoja).

Te he grabado una pequeña macro para que puedas apreciar a lo que me refiero:

'******************
Sub EjemploGrupos()
ActiveSheet.GroupBoxes.Add(31.5, 53.25, 108, 123).Select
ActiveSheet.GroupBoxes.Add(113.25, 22.5, 117, 181.5).Select
ActiveSheet.OptionButtons.Add(22.5, 16.5, 86, 17.25).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
Selection.ShapeRange.Line.Visible = msoTrue
Selection.Copy: ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 31.5
Selection.ShapeRange.IncrementTop 123.75
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 119.25
Selection.ShapeRange.IncrementTop 124.5
ActiveSheet.OptionButtons.Add(48, 71.25, 82.5, 18).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 12
Selection.ShapeRange.Line.Visible = msoTrue
Selection.Copy: ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -25.5
Selection.ShapeRange.IncrementTop 37.5
Selection.ShapeRange.ScaleWidth 0.88, msoFalse, msoScaleFromTopLeft
ActiveSheet.OptionButtons.Add(149.25, 60, 75.75, 19.5).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 13
Selection.ShapeRange.Line.Visible = msoTrue
Selection.Copy: ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -37.5
Selection.ShapeRange.IncrementTop 39.75
Range("A1").Select
End Sub

'******************

Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...blic.es.vb
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

Muchas gracias Vinchenzo,

Es muy enfarragoso trabajar con esos controles desde Excel y tu codigo me ha
abierto un poco los ojos.

Intuyo que asimismo podría asignar por código el Valor de cada Grupo de
opciones y que guardo después en una celda determinada para después
recuperarlo...

¿Me puedes decir cómo se haría? Sería como:

ActiveSheet.GroupBoxes("GrupodeOpciones25").Copy Destination:=Range("A1")
???


Gracias,

Martí



"Vinchenzo vinç" <Vinç@newsgroup.nospam> ha escrit en el missatge dels grups
de discussió:%
"marjan" <de hotmail : centralbib> escribió en el mensaje
news:

Ya sé porque es...

Resulta que si ajusto demasiado el borde del grupo de opciones hacia los
botones de opción se queda dicho botón marcado... :((

Hola Martí,

en realidad sucede que los botones de opción pertenecerán a aquellos
cuadros de grupo en los que estén circunscritos, por lo que aquellos botones
de opción que tengan alguno de los límites fuera del cuadro de grupo, aunque
estén en casi su totalidad dentro, serán excluidos del grupo, y pasarán a
formar parte del grupo exterior más cercano en el que estén en su totalidad
dentro, y si no están totalmente dentro de ninguno, pertenecerán en última
instancia al grupo externo de la hoja).

Te he grabado una pequeña macro para que puedas apreciar a lo que me
refiero:

'******************
Sub EjemploGrupos()
ActiveSheet.GroupBoxes.Add(31.5, 53.25, 108, 123).Select
ActiveSheet.GroupBoxes.Add(113.25, 22.5, 117, 181.5).Select
ActiveSheet.OptionButtons.Add(22.5, 16.5, 86, 17.25).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
Selection.ShapeRange.Line.Visible = msoTrue
Selection.Copy: ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 31.5
Selection.ShapeRange.IncrementTop 123.75
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 119.25
Selection.ShapeRange.IncrementTop 124.5
ActiveSheet.OptionButtons.Add(48, 71.25, 82.5, 18).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 12
Selection.ShapeRange.Line.Visible = msoTrue
Selection.Copy: ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -25.5
Selection.ShapeRange.IncrementTop 37.5
Selection.ShapeRange.ScaleWidth 0.88, msoFalse, msoScaleFromTopLeft
ActiveSheet.OptionButtons.Add(149.25, 60, 75.75, 19.5).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 13
Selection.ShapeRange.Line.Visible = msoTrue
Selection.Copy: ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -37.5
Selection.ShapeRange.IncrementTop 39.75
Range("A1").Select
End Sub

'******************

Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...blic.es.vb
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

"marjan" <de hotmail : centralbib> escribió en el mensaje news:u$

Muchas gracias Vinchenzo,

Es muy enfarragoso trabajar con esos controles desde Excel y tu codigo me ha
abierto un poco los ojos.

Intuyo que asimismo podría asignar por código el Valor de cada Grupo de
opciones y que guardo después en una celda determinada para después
recuperarlo...

¿Me puedes decir cómo se haría? Sería como:

ActiveSheet.GroupBoxes("GrupodeOpciones25").Copy Destination:=Range("A1")

Perdona Martí, no estoy seguro de haber entendido correctamente a qué te refieres.
Si «asignar por código el Valor de cada Grupo de opciones» se refiere a tratar de establecer la celda enlazada con el valor de la opción seleccionada (es decir, "Formato de control > Vincular con la celda: $a$1"), entonces no tienes más que indicarlo en cualquiera de los botones de opción de cada grupo en su propiedad 'LinkedCell', esto sería:

'*************
...
ActiveSheet.OptionButtons.Add(...,...).Select
Selection.LinkedCell = "$A$1"
...
'*************


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...blic.es.vb
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

Pués sí, a eso me referia...

Ejecuto el código que me pasas y si lo hace... me añade otro optionbutton y
si hago clic en el, me marca el valor...

Pero yo ya tengo hechos los Grupos y los botones de opción, Cómo hago
referencia a ellos?

Si hago
ActiveSheet.OptionButtons.Add(22.5, 16.5, 86, 17.25).Select
me añade un botón de opción, pero lo que yo quiero és que cuando se
seleccione se añada el valor a la celda, p.e. A1

Tampoco sé a que se refieren los números (22.5, 16.5, 86, 17.25) ¿són su
situación en la hoja? ¿No puedo referirme a un control por su nombre?

También resulta que los valores que tengo van del 0 al 11, cuando hago clic
en el 0, el valor que me guarda es el 1 y así sucesivamente... ¿Cómo le digo
que el valor que debe guardar es el 0 y no el 1? ¿Se puede? Claro que puedo
recalcularlo en otra celda... pero tengo que duplicar campos...

Bueno, Vinchenzo. Si puedes ayudarme gracias y si no también... creo que ya
he "abusado" bastante...

Saludos,

Martí



"Vinchenzo vinç" <Vinç@newsgroup.nospam> escribió en el mensaje
news:

"marjan" <de hotmail : centralbib> escribió en el mensaje
news:u$

Muchas gracias Vinchenzo,

Es muy enfarragoso trabajar con esos controles desde Excel y tu codigo me
ha
abierto un poco los ojos.

Intuyo que asimismo podría asignar por código el Valor de cada Grupo de
opciones y que guardo después en una celda determinada para después
recuperarlo...

¿Me puedes decir cómo se haría? Sería como:

ActiveSheet.GroupBoxes("GrupodeOpciones25").Copy Destination:=Range("A1")

Perdona Martí, no estoy seguro de haber entendido correctamente a qué te
refieres.
Si «asignar por código el Valor de cada Grupo de opciones» se refiere a
tratar de establecer la celda enlazada con el valor de la opción
seleccionada (es decir, "Formato de control > Vincular con la celda: $a$1"),
entonces no tienes más que indicarlo en cualquiera de los botones de opción
de cada grupo en su propiedad 'LinkedCell', esto sería:

'*************
...
ActiveSheet.OptionButtons.Add(...,...).Select
Selection.LinkedCell = "$A$1"
...
'*************


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...blic.es.vb
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas