Forums Últimos mensajes - Powered by IBM
 

Checkbox de la barra de controles

09/05/2006 - 00:21 por Bart | Informe spam
Hola Grupo:

No he podido controlar a través de VBA los cuadros de chequeo que inserte en
una hoja de cálculo con la barra de Controles. Encontre un código de hace
algún tiempo suministrado por el sr. Fernando Arroyo pero funciona si
provienen de la barra formularios y no quiero cambiar estos objetos porque
tienen más funcionalidades por este origen que utilizó (Barra de Controles).

El codigo citado es el siguiente:

Sub DesactivarControles1()
'Si están creados mediante la barra de herramientas "Formulario"
Dim cb As CheckBox

For Each cb In Worksheets("Hoja1").CheckBoxes
cb.Value = False
Next cb

Set cb = Nothing
End Sub

Que debo de hacer para que haga lo mismo con los Checkbox de la barra de
Controles?

Gracias y saludos,

Bart Max
 

Leer las respuestas

#1 Héctor Miguel
09/05/2006 - 07:29 | Informe spam
hola, Bart !

[tal parece que una vez mas]... todo tiene sus 'pros y contras' :D [me explico]...

1) si 'dejaras' las casillas de verificacion de la barra de herramientas formularios, podrias utilizar una 'simple' instruccion...
-> Worksheets("hoja1").CheckBoxes = False

2) para aprovechar las funcionalidades restantes de los de la barra de herramientas cuadro de controles...
necesitaras hacer un 'barrido' por todos los objetos OLE incrustados en la hoja y 'descartar' los que NO sean 'checkboxes'...
Dim Casilla As OLEObject
For Each Casilla In Worksheets("hoja1").OLEObjects
If Casilla.ProgId = "Forms.CheckBox.1" _
Then Casilla.Object.Value = False
Next

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ consulta original __
... controlar a traves de VBA los cuadros de chequeo que inserte en una hoja de calculo con la barra de Controles
... un codigo de hace... tiempo... funciona si provienen de la barra formularios y no quiero cambiar estos objetos
...tienen mas funcionalidades... (Barra de Controles).
Sub DesactivarControles1()
'Si estan creados mediante la barra de herramientas "Formulario"
Dim cb As CheckBox
For Each cb In Worksheets("Hoja1").CheckBoxes
cb.Value = False
Next cb
Set cb = Nothing
End Sub
Que debo de hacer para que haga lo mismo con los Checkbox de la barra de Controles?

Preguntas similares