Botón para borrar todas las imágenes de una hoja de excel
Hola... Necesito crear un botón que al hacer click sobre él, borre todas las imágenes de la hoja. Ya cree el botón y puse el siguiente código:
Private Sub Borrar1_Click()
ActiveSheet.DrawingObjects.Delete
End Sub
El problema que tengo es que al ejecutarlo no solo se borran las imágenes sino también el botón. Hay alguna forma de evitar esto último. Muchas Gracias
1 respuesta
Utiliza la siguiente macro
Sub borrar() 'Por.DAM For Each d In ActiveSheet.DrawingObjects If d.Name <> "1 Rectángulo" Then d.Delete End If Next End Sub
Cambia "1 Rectángulo", por el nombre de tu botón. Para saber el nombre de tu botón, es muy simple, sólo selecciona tu botón con el botón derecho del mouse y en el cuadro de nombres aparece el nombre de la figura.
Sigue funcionando igual....
el código me quedo así:
Private Sub Borrar1_Click()
For Each d In ActiveSheet.DrawingObjects
If d.Name <> "borrar1" Then
d.Delete
End If
Next
End Sub
En las propiedades del botón dice: (Name): borrar1
La macro sigue borrando todas las imágenes, incluido el botón que es lo que quiero evitar.
Muchas Gracias
No, ese no es el nombre del botón. Lo que estás poniendo es el texto del botón.
El cuadro de nombres es el que está arriba de la columna "A", es una cajita que está a la izquierda de la cajita de fórmulas. En el cuadro de nombres te aparece el nombre de tu botón.
Te anexo una imagen para que veas dónde está el cuadro de nombres.
https://www.dropbox.com/s/kuuov6abo9c7e9n/nombreboton.bmp
Intenta nuevamente
Gracias, Dante... en realidad el Botón también se llamaba así, pero tiene la B mayúscula. Lo corregí y anduvo de 10... Gracias por tus enseñanzas, maestro...
