Excel - MACRO PARA INSERTAR IMAGENES

Hola a todos.

Necesito de su ayuda... Trabajo en base a catalogos de articulos en libros de excel, las imagenes las tengo en una sola carpeta, son formato .jpg, necesito una macro que me relacione el codigo del articulo con la imagen y me inserte la imagen que corresponda al articulo en la fila que se encuentra, y se adapte al tamaño de la celda.

Ya encontre algunas macros, pero solo me sirven para insertar una imagen poniendole el nombre de la misma, siendo que mas bien lo que necesito es que me inserte todas las imagenes que correspondan con los codigos.

Jeje... no se si me explique, agradezco sus comentarios.

Saludos.

Gracias por su apoyo

pienso que cada imagen debería tener por nombre el código del articulo
y de esa manera crear el vínculo
algo más interesante es usar la técnica de la esteganografía, de esa manera
el código va dentro de la imagen sin modificarla y fácil para encontrar, eso sí,
el código se pierde si la imagen es modificada/editada...
también sería interesante ver lo que tenés...

Saludos, desde Baires, JuanC

Si Juan, asi es... la imagen tiene el mismo nombre que el codigo, pero como en el listado de excel son bastantes codigos, necesito que me inserte todas las imagenes segun el codigo correspondiente a la lista.

No se si me explique... Sorry por las molestias..

Gracias

No es molestia...
hay varias formas de hacerlo, dependerá de cómo tengas organizados los códigos y cómo quieras mostrar las imágenes...
este pequeño código muestra una imagen por vez,
la imagen mostrada es la que corresponde al valor de la celda
seleccionada
para probrarlo insertá una imagen en la hoja y nombrala "Foto"
en las celdas deben ir las rutas de las fotos a ser mostradas

Ej: si en la celda A1 dice C:\imgs\foto1.jpg
entonces mostrará la foto1, así con cualquier celda/foto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Dir(Target.Value) = "" Or Err <> 0 Then
ActiveSheet.Shapes("Foto").Delete
Exit Sub
End If
Dim f As Object
Application.ScreenUpdating = False
With ActiveSheet
.Shapes("Foto").Delete
Set f = .Pictures.Insert(Target.Value) '//Target.Value contiene C:\imgs\foto1.jpg
With f '//Dimensiones de la foto
.Name = "Foto"
.Left = Target.Left + Target.Width
.Top = Target.Top
.Width = 100
.Height = 100
End With
End With
Set f = Nothing
Application.ScreenUpdating = True
End Sub

si querés mostrar varias fotos simultáneamente podés crear un array
y trabajar con bucles For Each ... In en lugar del evento SelectionChange
por otro lado vinculás los códigos con las celdas que tienen el
nombre de la imagen, usando la función BuscarV, por ejemplo...
en fin, hay muchas posibilidades...

Saludos, desde Baires, JuanC

Hola buen dia, quisiera q me ayudaran con una macro, Quiero que en cada celda q selecciones aparesca una imagen

C:10 D:10(IMAGEN)
C:11 D:11(IMAGEN)
C:12 D:12(IMAGEN)
C:13 D:13(IMAGEN)

Private Sub SelectionChange(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 Target.Cells = Range("C10") Then
'If Target.Cells = Range("C11") Then
'If Target.Cells = Range("C12") Then
'If Target.Cells = Range("C13") Then
'If Target.Cells = Range("C14") Then
'If Target.Cells = Range("C15") Then

'Ocultamos el procedimiento
Application.ScreenUpdating = False


'pasamos a una variable, el nombre de la foto,
'que será el mismo que el nombre del coche, pero
'separado con guiones, y sin acentos, para que
'todos los usuarios puedan verlo correctamente
foto = Range("C10").Value
'foto = Range("C11").Value
'foto = Range("C12").Value
'foto = Range("C13").Value
'foto = Range("C14").Value
'foto = Range("C15").Value

'en la foto, reemplazamos los espacios, por guiones
foto = Replace(foto, " ", "-")

'ahora le añadimos la extensión "jpg"
foto = foto & ".jpg"
'ahora buscamos la foto en el mismo directorio
'donde tenemos este fichero de excel
rutayarchivo = ActiveWorkbook.Path & "\" & foto
'borramos la foto del coche (si hubiera alguna)
Me.Shapes("ImagCav").Delete
'creamos el objeto fotografia, con la foto insertada
Set fotografia = Me.Pictures.Insert(rutayarchivo)

'haremos que la foto ocupe desde B6 hasta D21,
'para que no salgan fotos supergrandes, o
'superpequeñas, y salgan más "normalitas"
With Range("E10")
'With Range("E11")
'With Range("E12")
'With Range("E13")
'With Range("E14")
'With Range("E15")

Arriba = .Top
'Izquierda = .Left
Izquierda = .Left
'Ancho = .Offset(0, .Columns.Count).Left - .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
'le ponemos un nombre al objeto "fotografia"
'para poder borrarla cuando cambie la celda D6
'(ver que borramos la foto que hubiese, antes de insertar la nueva)
With fotografia
.Name = "imagCav"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
'eliminamos el objeto
Set fotografia = Nothing
'ponemos todo como estaba
Application.ScreenUpdating = True

End If

End Sub

Gracias por la ayuda q me puedan dar!
Saludos

Perdona que utilice este correo de respuesta a tu cuestión como una pregunta a mis dudas.
He observado tu código y me sería muy útil para una aplicación de listas de alumnos, pero me gustaría que en lugar de que todas las fotos tuviesen que estar necesariamente en la misma carpeta del archivo del programa (como en tu programa (rutayarchivo = ActiveWorkbook.Path & "\" & foto), pudiesen estar en una subcarpeta.
Si la subcarpeta se llamase fotos1º ¿Me podrías indicar qué habría que modificar de la línea de código para esto?

¿¿¿ rutayarchivo = ActiveWorkbook.Path & "\" & foto ???

He probado con varias posibilidades y en todas me encuentro errores.

Muchísimas gracias por tu atención y por tu trabajo. Un saludo.

Hola,
¿Solucionaste la macro?, Podrias indicarme como lo hiciste finalmente.

Muchas gracias

Hola chicos, tengo que hacer una lista de precios con 450 imagenes en excel y me da constantemente error, la verdad que no soy muy ducho para esto, algunos de ustedes se dedica a hacer este trabajo, lo pago obviamente, aguardo sus repuesta, saludos
Federico

Estimado JuanC, me parece muy util tu comentario final que lo adjunto lineas abajo, yo quisiera hacer una macro para mostrar varias imagenes en simultaneo y vincularlo a una columnas de celdas que sean dimanicas. Tu podras mostrarme como deberia ser el codigo a insertar en VB excel, te lo agradeceria enormemente.
Saludos cordiales.
Miguel Vargas.


..........................................................................................................
No es molestia...
hay varias formas de hacerlo, dependerá de cómo tengas organizados los códigos y cómo quieras mostrar las imágenes...
este pequeño código muestra una imagen por vez,
la imagen mostrada es la que corresponde al valor de la celda
seleccionada
para probrarlo insertá una imagen en la hoja y nombrala "Foto"
en las celdas deben ir las rutas de las fotos a ser mostradas

Ej: si en la celda A1 dice C:\imgs\foto1.jpg
entonces mostrará la foto1, así con cualquier celda/foto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Dir(Target.Value) = "" Or Err <> 0 Then
ActiveSheet.Shapes("Foto").Delete
Exit Sub
End If
Dim f As Object
Application.ScreenUpdating = False
With ActiveSheet
.Shapes("Foto").Delete
Set f = .Pictures.Insert(Target.Value) '//Target.Value contiene C:\imgs\foto1.jpg
With f '//Dimensiones de la foto
.Name = "Foto"
.Left = Target.Left + Target.Width
.Top = Target.Top
.Width = 100
.Height = 100
End With
End With
Set f = Nothing
Application.ScreenUpdating = True
End Sub

si querés mostrar varias fotos simultáneamente podés crear un array
y trabajar con bucles For Each ... In en lugar del evento SelectionChange
por otro lado vinculás los códigos con las celdas que tienen el
nombre de la imagen, usando la función BuscarV, por ejemplo...
en fin, hay muchas posibilidades...

Saludos, desde Baires, JuanC

Excelente aporte a mi me sirvio increible no lo use exactamente como el codigo que subiste, solo tome lo que necesitaba y lo adapte a lo que necesitaba, gracias

Estimados, en la medida de lo posible... compartan el archivo, no necesariamente tiene que ser con toda la data sino con ejemplos... así los usuarios pueden descargarlo, revisar las macros, usar solo lo que necesiten y/o ajustar parte de la programación.

Por lo que he leído serviría para alumnos (para carnet, para empleados, etc) y catálogos de productos y/o artículos (de ferretería, autopartes, etc)

Por cierto.... cuidado con insertar las imágenes... el archivo de excel podría aumentar su tamaño considerablemente como para hacerlo inmanejable de tal forma que no pase por correo como el caso de los catálogos, en estos casos sería mejor usar hipervínculos a imágenes compartidas en la nube...

Salu2

Hola,

Con este método las imagenes quedan Vinculadas al libro de Excel, no insertadas. Hay alguna posibilidad de guardar el libro generado con las imagenes incluidas.

Gracias anticipadas. Miguel

hola muy buen día quisiera saber si me podrías mostrar una macro que inserte una imagen en una celda o en un cuadro de texto, pero utilizando un código algo sencillo que no sea ni tan complicado ni tan difícil, y soy apenas un aprendiz y quisiera un código para principiantes que no utilice privetsub me ayudaría mucho por que es un proyecto gracia

Buenos días Juan. He leído lo que quieren hacer los integrantes del tema por decirlo de algún modo y pues bueno, estoy en las mismas, quiero generar credenciales en excel y poner la misma imagen para todas ellas y para disminuir el tiempo de inserción se me ocurrió poner las imágenes en un arreglo, investigando supe que se pueden convertir a binario si no mal recuerdo, lo que pretendo hacer si es que se puede, guardar la ruta de la imagen y después insertarla en las celdas que deben de ir pero todas al mismo tiempo, Es posible hacer eso?

Hola JuanC, podrías explicarme como es eso del array? Muchas gracias

Saludos... queria preguntarte la acerca de como puedo centrar la imagen a una celda, mi imagen esta con dimensiones aptas para la celda, no necesito cambiar sus dimensiones, solo centrarla en la celda:


de antemano agradezco su colaboracion

Aunque sé que lo que deseas es una macro, te recomiendo la utilización de hipervínculos, para ello lo que puedes hacer es abrir el google chrome y como tema a buscar colocas la dirección del archivo en el que se encuentran las imágenes que quieres visualizar, luego seleccionas todos los enlaces que aparecerán y los pegas en el excel, posteriormente haces las macros direccionándolas a los enlaces que correspondan.

Hola. Mi problema está vinculado al tema. Tengo una toolbox con varias funciones asignadas para una macro general que corresponde a un formulario en el que hasta el momento los usuarios solo pueden escribir en campos de textos asignados. Ahora bien, necesito que puedan subir en algunos puntos del formulario, sus propias imagenes y que queden insertadas para que, cuando el revisor abra el archivo, pueda verlas. Leí todos los posteos de ese hilo y no encontré una solución que me permitiera insertar en mi toolbox un campo de imagen que los deje subir las fotografías.
Si alguien pudiese orientarme con el código se los agradecería.