Eliminar imágenes a partir de su nombre usando macros

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Eliminar imágenes a partir de su nombre usando macros

Notapor martinarti » 06 Ene 2018 19:22

Estimados, cómo están? Estoy haciendo un formulario tanto de carga como de devolución de datos, y para poder habilitar la función de modificar datos necesito poder eliminar imágenes.

Ya creé una macro que (entre otras cosas), al cargar los datos desde el formulario a la hoja de registros, pega como una imagen nueva la imagen cargada, y además copia y pega el nombre de la imagen, por ejemplo "Imagen 5" en una celda de la misma fila. 

Adjunto una hoja de ejemplo. Lo que necesito saber cuál sería el código para ejecutar lo siguiente:

- que busque el valor de la celda A3 (buscar) en la columna B (Códigos)

- que de la fila donde lo encontró tome el valor de la columna D (Nombre de imagen)

- que elimine la imagen de la hoja que se llama igual que el valor de la columna D de esa fila.

ejemplo eliminar imagenes.xlsm


Gracias!!
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
martinarti
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 2
Registrado: 06 Ene 2018 19:18

Re: Eliminar imágenes a partir de su nombre usando macros

Notapor Antoni » 07 Ene 2018 06:40

Código: Seleccionar todo
Set código = Columns("B").Find(What:=Range("A3"), LookAt:=xlWhole)
If Not código Is Nothing Then ActiveSheet.Shapes(Range("D" & código.Row)).Delete
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5028
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Eliminar imágenes a partir de su nombre usando macros

Notapor martinarti » 08 Ene 2018 09:53

Gracias Antoni! Funcionó perfecto. Tema resuelto para mí :D :D :D :D :D :D :D :D
martinarti
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 2
Registrado: 06 Ene 2018 19:18


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados