Macro excel insertar imagen cuando encuentre celda vacia Tabla A

[luis martinez pedrosa]

Hola, tengo imagenes en una carpeta, me gustaria que cada vez que encuentre en la tabla A una celda vacia inserte una de esas fotos, sucesivamente hasta que termine.

Saludos

[Leopoldo Blancas]

Sube tu archivo con imagenes-....

 

[luis martinez pedrosa]

Hola, subo rar con imagenes supuestar para inserar en tabla.

https://drive.google.com/open?id=1VrwdfriYizhUjno7g6vYOpHm_Cq9XJ2m

Saludos.

[Haplox]

Hace 12 horas, luis martinez pedrosa dijo:

Hola, subo rar con imagenes supuestar para inserar en tabla.

¿Y tu fichero excel?

[luis martinez pedrosa]

prueba.xlsx

En tabla A en cada celda vacia insertar una imagen.

 

[Haplox]

Hace 34 minutos , luis martinez pedrosa dijo:

En tabla A en cada celda vacia insertar una imagen.

Viendo tu archivo no entiendo nada ?. Qué imagen? ¿Con qué criterio? En cada equipo siempre hay los mismos miembros? ¿En qué celda insertar la imagen, al lado?

Como ves, me parece que en tu cabeza tienes claro qué quieres, pero nosotros no somos adivinos

[luis martinez pedrosa]

Vamos por partes en la carpeta hay una serie de imagenes.

En la tabla A una serie de datos da igual los datos que sean.

En esa tabla "A" hay celdas vacias.

Lo que me gustaria conseguir es que por orden de nombre de las fotos que se vayan insertando en cada celda vacia que encuentre.

Da igual que ponga Madrid, sevilla o lo que sea solo que se vayan insertando las fotos en cada celda vacia.

 

saludos

[Antoni]

Mañana, si tengo un ratito, le echo un vistazo.

[luis martinez pedrosa]

Ok, Muchas Gracias

 

saludos.

[Antoni]

Suponiendo que el archivo y las imágenes están en la misma carpeta y son jpg.

Sub InsertarImágenes()
Application.ScreenUpdating = False
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(ThisWorkbook.Path) 'Carpeta Imágenes
For Each File In Folder.Files
   If LCase(Right(File, 3)) = "jpg" Then
      x = x + 1
      Do Until Range("A" & x) = "": x = x + 1: Loop
      Range("A" & x).Select
      ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & File.Name).Select
      Rows(x).RowHeight = Selection.Height
   End If
Next
End Sub

 

[luis martinez pedrosa]

Hola, Muchisimas Gracias.

Es exactamente lo que queria. Impresionante.

Lo que me gustaria hacer ahora es otra cosa.

Resulta que esa tabla mediante macro la guarda en un documento word.

Cuando abro el documento Word elimino la tabla que crea Excel, y las imagenes se ponen donde quieren. Sobre todo delante del texto y no se puede leer.

Seria posible que en el documento word al eliminar la tabla, las imagenes guardaran el orden de la tabla creada con Excel.

 

Saludos y perdona las molestias.

 

[Antoni]

No tengo ni idea.

 

[luis martinez pedrosa]

Muchas Gracias y perdona las Molestias.

 

Saludos.

[Haplox]

Hace 7 horas, luis martinez pedrosa dijo:

Cuando abro el documento Word elimino la tabla que crea Excel

No sé, pero... ¿Porqué no dejas la tabla tal cual sin eliminarla? Digo yo

[luis martinez pedrosa]

Hola La podria dejar, pero es mas dificil de manipular el texto.

Solo era si seria posible, por si alguno sabe como hacerlo con macro.

Yo lo que hago, antes de eliminar la tabla, voy seleccionando foto a foto de forma manual le doy formato alinear con el texto.

 

Saludos.

 

 

 

[luis martinez pedrosa]

Hola Antoni, perdona que vuelva a abrir el hilo.
Resulta que hice un par libros excel insertando fotos y la macro funciona perfectamente.
Una vez inserte las imagenes guarde los libros y elimine las carpetas con las imagenes, pasado unos dias volvi a abrir los libros y parece ser que las imagenes estaban vinculadas y me sale este mensaje.
Envio imagen.

¿Se podria hacer la misma macro pero en vez de imagenes vinculadas a la carpeta que se quedaran insertadas?, es decir si se borra la carpeta que pemanezca en el libro.

Gracias Saludos.