Eliminar botón Control formulario en hoja
En una macro tengo esta línea.
H2. Shapes. Range(Array("SpinB1", "Botón 30")).DeleteQuiero agregarle un boton Control formulario "Botón 30" tal como se ve
Ecribi B3 + Enter pero no me lo acepta al vwerificar siempre aparece Botón 30
Si coloco el que aparece Botón 30 al ejecutar la macro me da este error que, se que es por el nombre dl objecto, pero ¿cómo o que nombre le doy y que lo acepte?
2 respuestas
H o l a
prueba con esto
Sub eliminar() 'elimina todos los objetos ActiveSheet.DrawingObjects.Delete End Sub
ESTO SON LA RESPUESTA DE DANTE ES INTERESANTE
1.1 Para borrar toda la fila y la imagen, pero la imagen tiene que estar en esa fila, puedes utilizar esto:
Rows(2).Delete
1.2. Si quieres borrar el contenido de la fila (esta opción no borra la imagen)
Rows(2). Clear
1.3 Si quieres borrar el contenido de la fila y respetar los formatos (tampoco borra la imagen)
Rows(2). Clearcontents
2.1. Si quieres eliminar solamente la imagen y conoces el nombre de la imagen, puede ser así
Sheets("Hoja1").Shapes("7 Rectángulo").Delete
2.2. Si no conoces el nombre de la imagen, pero tienes el texto, suponiendo que dentro de la imagen tienes el texto: "reporte", entonces puedes borrarla así
For Each dr In ActiveSheet.DrawingObjects
dr.Select
If dr.Text = "reporte" Then
dr.Delete
Exit For
End If
Next
2.3. Si no conoces el nombre de la imagen ni el texto contenido dentro de la imagen. Esta instrucción borra todas las imágenes de la hoja.
ActiveSheet.DrawingObjects.Delete
2.4. Si lo que quieres borrar es un figura y no conoces el nombre ni el texto, puede ser:
ActiveSheet.Shapes.SelectAll
Selection.Delete
2.5. Si es una figura y solamente tienes una figura en la hoja, puede ser así
ActiveSheet.Shapes.Item(1).Delete