Jump to content
luis martinez pedrosa

Macro excel insertar imagen cuando encuentre celda vacia Tabla A

Recommended Posts

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 :unsure:

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

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.

 

Share this post


Link to post
Share on other sites

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.

674511805_Sinttulo4.jpg.06721c809aec7dffda5f1986d8297876.jpg

¿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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Hola buenas tardes amigos de Ayuda Excel Estoy parado en una macro que no he podido resolver a ver si pueden ayudarme. Gracias de antemano por su colaboración. Les explico. El archivo tiene varias hojas, Una se llama control enero, control febrero y asi sucesivamente La macro la voy a ejecutar en cada hoja Lo que debe hacer la macro es: 1)      copiar la celda A3, que es una formula, de la Hoja CONTROL 1  a la primera fila disponible de la columna A5 de la Hoja Control General. 2)      Copiar la celda j22 de Control 1 (que es una formula), como valor sin negrita a la primera fila disponible de F5 de la Hoja Control general. 3)      Hacer una botón para ejecutar la macro, teniendo en cuenta que solo debe ejecutarse si la celda j25 de la Hoja Control 1 es igual a SI. Por el contrario si es igual a NO, no debe permitir la ejecución de la macro. Pudiera ser advertido al usuario mediante un MSGBOX. 4)      Por último la posición de las celdas J22 y j25 pueden variar de hoja a hoja según la información introducida en cada hoja. Agradecidos de antemano por la colaboración prestada. LB Anexo archivo CONTROL GENERAL.xlsm
    • Un nuevo aporte para finalizar el proyecto Tengo el archivo funcionando cuando el usuario requiere solo una hoja activa. cuando se requiere que mas hojas estén activas no funciona. Ejemplo el user marco pass 123 debería tener activas las hojas "Registro, Registro1, Registro2". Con el codigo actual solo funciona la hoja "Registro" Ademas un favor extra que dependiendo el usuario que inicie sección ponga el Nombre de la columna "Nombre" en ("01.Adeudos" tabla "usuarios") del archivo en ACCESS y lo pegue en la hoja "Principal" celda C7 del archivo de EXCEL. en el siguiente enlace esta un ejemplo del proyecto. https://mega.nz/file/YRpRXZTL#Uynlq0oW77Eo0VbME26yYkKc1g7jXXu9w1AwfbFlRp0 De nuevo muchas gracias por toda la ayuda en el proyecto. Saludos
    • Hola buenas tardes amigos de Ayuda Excel. Quería preguntar si hay alguna manera de copiar y pegar una celda que tiene un prefijo en otra celda pero que el prefijo APAREZCA en la barra de fórmula. Gracias
    • Todo en la misma hoja.   Filtro Antoni.xlsm
    • Hola @Persal95 Una posible solución, Espero que sea de utilidad. Nos comentas.EJEMPLO AYUDA EXCEL 1.1.xlsx
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy