Macro para mostrar imagen dependiendo del valor de celda Excel 2010 (automático)

Les ruego me por favor me ayuden con la siguiente macro.

El problema consiste en que tengo una celda B22 con formato condicional por lo cual varía dependiendo del valor de otra celda, la macro consiste en asociar una imagen que varía acorde con el valor de la celda B22, PERO para que cambie la imagen tengo que posicionarme en la celda y presionar Enter.

Yo deseo que la imagen se cambie de forma automática con el valor de la celda y no se como hacer esto.

Muchísimas gracias por la atención y su ayuda.

MACRO

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells = Range("B22") Then
Application.ScreenUpdating = False
foto = Range("B22").Value
foto = Replace(foto, " ", "-")
foto = foto & ".jpg"
rutayarchivo = ActiveWorkbook.Path & "\" & foto
Me.Shapes("foto").Delete
Set fotografía = Me.Pictures.Insert(rutayarchivo)
With Range("B24:D24")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With fotografía
.Name = "foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set fotografía = Nothing
Application.ScreenUpdating = True
End If
End Sub

1 respuesta

Respuesta
1

Te mando una solución, sigue mis instrucciones:

En primer lugar inserta un objeto image en la hoja del tamaño que quieras. Después sería conveniente que modificaras su propiedad "picturesizemode" a la opción 3

Después copia esta macro en el objeto hoja en el que estará la foto:

Como es lógico tendrás que cambiar el path que yo he puesto en esta macro por el tuyo

Mediante este evento se autoejecutará la macro siempre que se produzca cualquier cambio en la hoja y te mostrará la foto correspondiente al nombre escrito en la celda B22

Private Sub Worksheet_Change(ByVal Target As Range)
foto = Range("b22").Value
ActiveSheet.Image1.Picture = LoadPicture("C:\Users\Luis\Documents\fotos\" & foto & ".jpg")
End Sub

recuerda finalizar la consulta

Muchas gracias por la pronta respuesta. Ya lo hice y sin embargo sigo teniendo exactamente el mismo error, cuando la celda cambia, la foto no cambia, a menos que se le de ENTER a la celda y eso es lo que quiero evitar (la celda cambia sola por que tiene formato condicional que depende de otra que es la que se modifica).

No se si me explico. Creo que necesito una macro que presione ENTER en la celda B22 y luego la vuelva a proteger, pero no la encuentro.

Espero que también me pueda ayudar con esto.

Saludos cordiales

Disculpa, era mi error, tenía que dar ENTER en la celda que sí se modifica, otra que no era B22 y ahora sí salió bien.

Muchísimas gracias.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Insertar imágenes con vb

A ver si consigo explicarme. Excel 2003. He encontrado esto: Private Sub Worksheet_Change(ByVal Target As Range) 'Si ha errores, que continúe On Error Resume Next 'Si cambiamos el dato de la celda C4, 'mostramos la foto de ese vehículo If...
1 respuesta

Macro para Insertar una Imagen en una celda desde un boton.

Tengo un archivo de excel, alli tengo un boton1 (Sin formulario) y quiero saber si existe alguna macro que al darle click al boton1 me abra la opción de insertar imagen para que el usuario escoja la foto y la inserte en la hoja y además en me...
2 respuestas

Fotos en excel con macro, pesa mucho archivo final

Lo que busco es hacer un formulario que me ubique por fotos en una hoja, las imágenes están en una carpeta definida, tengo el siguiente código (lineas abajo), pero, el resultado es un archivo demasiado grande, tanto que cuelga mi maquina, y estoy...
1 respuesta

No ejecutar macro al seleccionar una celda vacía

Espero te encuentres genial. Tengo la siguiente macro que inserta una imagen cuando selecciono cualquier celda dentro del rango "A1:A30": Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Target,...
1 respuesta

Macros para mostrar varias imágenes según valor de celda

Tengo la siguiente macro que me arroja la fotografía de un empleado el teclear su número de empleado en determinada celda. Me gustaría que fueran varias celdas que arrojaran varias imágenes según en número de empleado en la misma hoja. ¿Cómo puedo...
2 respuestas

Insertar foto condicionada a un valor

Estoy intentando insertar una foto que dependa de la calificación en un cuestionario; he usado las macros de Dan que he visto publicadas pero no me jalan y no encuentro el error, ¿Me podrían apoyar? Sub insertarfoto() 'pone la imagen según un número...
1 respuesta

¿Dato Variable (imágenes) en excel?

Mi nombre es Gabriela Jiménez. Revisé varias consultas que te hicieron en Internet, con requerimientos similares al mío, intente modificar las macros, que tu amablemente contestaste, pero no logre hacer correr la macro correctamente, además que...
1 respuesta

Macro para eliminar imagen (con nombre referido a dos celdas)

Después de hacer varias búsquedas en internet encontré esta macro que me funciona perfectamente para insertar una imagen en una celda, el nombre de esta imagen se genera a partir del valor de dos celdas: Sub Insertarimagen() tope = Range("C10").Top...
1 respuesta

Macro para insertar imagen según el valor de una celda

Quiero que me ayuden con un inconveniente. Necesito una macro que me inserte una imagen según el valor de una celda, he visto varios ejemplos pero en ninguno sale el condicional de la celda tan solo el procedimiento para insertar la imagen.
1 respuesta

Ver imagen según dato en celda

Dan tengo este código me hiciste favor de enviarme y funciona bien mi pregunta es si tengo 2 Imagen 1 Imagen 2 como configuro para que en el segundo me aparezca la imagen ya que en el segundo la imagen seria también por folio y la carpeta seria de...
1 respuesta