Insertar fotos de carpetas en celdas vacías

[luis martinez pedrosa]

Insertar fotos de carpetas en celdas vacías

 

Hola se podría Insertar fotos de una carpeta en celdas vacías de una tabla

 

Ejemplo

1

Foto

22

33

Foto

4

 

Gracias, saludos

[JSDJSD]

Mira aquí que seguro te ayudara. 

 

[luis martinez pedrosa]

si, sirve para vincular imágenes pero yo quiero para insertar imagenes

gracias

[Antoni]

Sube tu archivo, especifica en que las celdas deben ir las imágenes, la carpeta de las imágenes y como relacionar la celda con el nombre de la imagen.

[luis martinez pedrosa]

Hola subo archivo de ejemplo, en este caso he copiado las imágenes y las he pegado, me gustaría que mediante macro las imágenes de la carpeta se insertaran en la celda vacía de forma automática, incrustadas no vinculadas.

 https://gofile.io/d/awD8Sj

Gracias.

 

[Antoni]

¿Y como pretendes que relacionemos la imagen con la celda donde debe insertarse?

[luis martinez pedrosa]

Hola, la pregunta es si se puede conseguir mediante macro insertar en celdas vacías las imágenes, parece ser que no se puede o es difícil de conseguirlo.

En realidad lo que me gustaría es que cuando la imagen encuentre una celda vacía se inserte sin que guarde relación alguna con el texto, yo ya lo tengo controlado para que la imagen corresponda con el texto.

 

Muchas gracias por intentarlo perdona por las molestias.

 

Saludos.

[Antoni]

  En 29/11/2021 at 9:15 , luis martinez pedrosa dijo:

Hola, la pregunta es si se puede conseguir mediante macro insertar en celdas vacías las imágenes, parece ser que no se puede o es difícil de conseguirlo.

 

En realidad lo que me gustaría es que cuando la imagen encuentre una celda vacía se inserte sin que guarde relación alguna con el texto, yo ya lo tengo controlado para que la imagen corresponda con el texto.

 

 

 

Muchas gracias por intentarlo perdona por las molestias.

 

 

 

Saludos.

 

 

 

Expand  

No, no es nada difícil si sabes lo que hay que hacer.

Por la tarde, si puedo, te subo algo.

[luis martinez pedrosa]

Ok, Gracias.

Saludos.

 

[Antoni]

Abre el adjunto y pulsa sobre la flecha azul.

La carpeta de imágenes debe estar una nivel por debajo de la del archivo y debe tener el nombre imagenes

Insertar Imágenes.xlsmFetching info...

[luis martinez pedrosa]

Hola Antoni, no me deja descargar el archivo porque no tengo nivel suficiente en el foro.

Gracias.

 

[Antoni]

Ponte en contacto con el administrador del foro: Sugerencias - Reclamaciones

Mientras aclaras el tema, coloca este código en un módulo o en la hoja y ejecuta la macro RecorrerImágenes:

Sub RecorrerImágenes()
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(ThisWorkbook.Path & "\imagenes") '<----- Carpeta de imágenes
For Each oFile In oFolder.Files: InsertarImagen oFile.Name: Next
Range("A1").Select
End Sub

Private Sub InsertarImagen(Imagen As String): On Error Resume Next
Application.ScreenUpdating = False
For x = 1 To Range("A" & Rows.Count).End(xlUp).Row
   If Trim(Range("A" & x)) = "" Then
      Range("A" & x).Select
      ActiveCell = Imagen
      ActiveSheet.Shapes(Imagen).Delete
      ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\imagenes\" & Imagen).Select
      With Selection.ShapeRange
         .Name = Imagen
         .LockAspectRatio = False
         .Height = ActiveCell.Height
         .Width = ActiveCell.Width
      End With
      Exit Sub
   End If
Next
End Sub

 

[luis martinez pedrosa]

Hola Antoni, la macro es perfecta pero las imágenes las vincula yo lo que busco es que las deje incrustadas es decir que aunque se elimine la carpeta imágenes la imagen permanezca en el libro.

Gracias saludos.

[Antoni]

No se lo que has hecho, pero la macro NO VINCULA las imágenes.

Si te refieres a que en la celda, debajo de la imagen, aparee el nombre de la imagen, es porqué algo había que poner en la celda al insertar la imagen para que ya no estuviera vacía. De no hacerlo, todas la imágenes se insertarían en la misma celda.

[luis martinez pedrosa]

Ok, Gracias por todo el esfuerzo que has realizado.

Saludos.