Checkbox de la barra de controles

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 __
Mostrar la cita

... 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?