¿Cómo eliminar las casillas de verificación de una hoja Excel?

Solo un pedido por favor

¿

¿Tendrías un código para eliminar las casillas de verificación de una hoja excel?

Haciendo pruebas, inserté por error un montón sin darme cuenta! (Mejor ni te cuento pues me vas a decir... Te lo dije!)

Abrazo y discúlpame por mi estupidez!

Daniel

1 respuesta

Respuesta
2

Cuáles casillas tienes de Formulario o de Control ActiveX.

Solamente tienes casillas o tienes otras imágenes.

Si solamente son as casillas, presiona F5, en la ventana que aparece, presiona el botón "Especial"; selecciona la opción "Objetos" y presiona Aceptar.

Lo anterior selecciona todas las casillas. Ahora solamente presiona la tecla Suprimir.

La imagen:

Gracias por tu respuesta Dante. Antes de consultarte probé varias cosas y entre ellas, la que comentas y te aseguro que la hoja tiene tantos objetos que si hago eso se me borra casi todo!

Tengo este código y no me funciona:

'Sub DeleteCheckbox()
'Dim cb As CheckBox
'For Each cb In ActiveSheet.CheckBoxes
' If cb.TopLeftCell.Address = ActiveCell.Address Then cb.Delete
'Next
'End Sub

y también este otro que no puedo adaptar:

'Sub DeleteActiveXCheckbox()
'Dim obj As OLEObject
'Dim cb As MSForms.CheckBox
'For Each obj In ActiveSheet.OLEObjects
' If TypeOf obj.Object Is MSForms.CheckBox Then Set cb = obj.Object
' If cb.ShapeRange.Item(1).TopLeftCell.Address = ActiveCell.Address Then obj.Delete
'Next
'End Sub

En realidad no se que hacer y me voy a pasar la noche y parte del sábado borrando casillas!

Puedes responder en este orden:

1. Cuáles casillas tienes de Formulario o de Control ActiveX.

2. Cómo se llaman, es decir, todas empiezan con el nombre "Casilla " o empiezan con el nombre "CheckBox".

Si aplico Modo Diseño, todas comienzan con: =INCRUSTAR("Forms.CheckBox.1";"")

Y todas son de ActiveX

Te anexo 2 opciones:

Sub BorrarCheckbox()
  Dim ctrl As Variant
  '
  On Error Resume Next
  For Each ctrl In ActiveSheet.DrawingObjects
    If LCase(Left(ctrl.Name, 8)) = LCase("CheckBox") Then
      ctrl.Delete
    End If
  Next
End Sub
Sub BorrarCheckbox_2()
  Dim ctrl As OLEObject
  '
  On Error Resume Next
  For Each ctrl In ActiveSheet.OLEObjects
    If TypeName(ctrl.Object) = "CheckBox" Then
      ctrl.Delete
    End If
  Next
End Sub

¡Gracias Dante!

Funciono perfectamente la primera!

Se soluciono el problema en el que me había metido!

Te mando un abrazo y cuídense bien!

Daniel

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas