Problema checkbox

escribió en el mensaje
news:

Muchas gracias por todo. Con esta opcion ya hemos resuelto el problema
y funciona perfectamente.
Gracias de nuevo.

For i = 1 To 6
If Sheets(1).OLEObjects("CheckBox" & i).Object Then
'Tu codigo aqui
End If
Next

Hola Helen, Eva y "KL",
sólo quería comentar que ese código se aplicaría al objeto
"ActiveWorkbook" en el momento de la ejecución. Si en ese momento existiese
más de un libro abierto en una misma instancia, y el libro activo fuese otro
(posible lo es), la solución sería errónea.
Por consiguiente, yo añadiría la referencia al libro concreto, ó, si el
procedimiento residirá en un módulo del mismo libro, el objeto
'ThisWorkbook' bastaría para devolver una referencia inequívoca.
...
If ThisWorkbook.Sheets("Hoja").OLEObjects("CheckBox" & i).Object Then
...

Y si consultamos el tipo de dato devuelto por una sentencia como la
anterior:
'******************
Debug.print TypeName(Sheets(1).OLEObjects("CheckBox1").Object)
Debug.print TypeName(Sheets(1).OLEObjects("CheckBox1").Object.Value)
'******************
En la ventana "Inmediato" aparecería:
CheckBox
Boolean

Esto significa que, si por alguna casualidad (poco probable, pero
posible) la propiedad predeterminada dejara de existir en futuras versiones,
el código podría funcionar incorrectamente, o no funcionar, por lo que (yo,
pesimista y malpensado como el que más) no obviaría la propiedad a ser
consultada.


Bueno, tampoco me hagáis demasiado caso, sólo es una opinión personal.


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/43b3q
( i ) Temperancia en el foro:
http://www.uyssoft.com/MSNews.aspx?sm