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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

CheckBox en un array de controles

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?

Responder a este mensaje

#2 Bart

09/05/2006 - 18:09 | Informe spam

Hola Héctor Miguel:

Como siempre, muy amable por tu clara y opurtuna respuesta.

Saludos,

Bart Max

"Héctor Miguel" wrote:

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?

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida