Realizar un collage de fotos en excel

Por casualidad alguien tiene un código para realizar un collage en una hoja excel, me explico es que necesito pegar diferentes fotos en una hoja y luego realizar un collage en otra hoja excel de ese mismo libro, pero no he encontrado una idea de algún código al respecto

Respuesta
1

I. Hola Jhon Fredy, en mi caso lo que traté de hacer tanto en Excel como en Word fué realizar el collage de imágenes con un programa de edición independiente (The GIMP), y luego una vez ya hecho, intentar insertarlo en el documento, pero entiendo que esta vía ni es adecuada ni lo que necesita.

Deseaba trasladarle la información anterior que aportaron en este sentido l@s expert@s de esta y otras páginas por si pudiese serle de alguna utilidad mientras le atiende una persona conocedora. Le ruego me disculpe todas las molestias de lectura, ánimo.

https://www-mrexcel-com.translate.goog/board/threads/excel-can-i-link-to-a-picture-in-another-sheet-same-worksheet.1147472/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www.youtube.com/watch?v=PmZSMvaiujI 

https://zapier-com.translate.goog/blog/link-spreadsheet-data/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc&_x_tr_hist=true 

https://www-ablebits-com.translate.goog/office-addins-blog/excel-reference-another-sheet-workbook/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-ablebits-com.translate.goog/office-addins-blog/excel-reference-another-sheet-workbook/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://www.youtube.com/watch?v=kflSWB5zkWo 

https://www.youtube.com/watch?v=CBnWXuaLJRU 

https://www.youtube.com/watch?v=Vnbv8pmG_dQ 

https://www.quora.com/How-can-I-automatically-duplicate-data-from-one-Excel-sheet-to-another

1 respuesta más de otro experto

Respuesta
2

Excel no es la herramienta más adecuada para hacer collages con fotos, ya que su principal función es el manejo de datos y no la edición de imágenes. Sin embargo, es posible realizar un collage en Excel utilizando el siguiente código VBA:

Sub CrearCollage()
    Dim miHoja As Worksheet
    Set miHoja = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    miHoja.Name = "Collage"
    Dim fila As Integer
    fila = 1
    Dim columna As Integer
    columna = 1
    For Each imagen In miHoja.Shapes
        imagen.Delete
    Next
    For Each imagen In ThisWorkbook.Sheets("Fotos").Shapes
        If fila > 5 Then
            fila = 1
            columna = columna + 1
        End If
        imagen.CopyPicture
        miHoja.Range(miHoja.Cells((fila - 1) * 3 + 1, columna * 4 - 3), miHoja.Cells(fila * 3, columna * 4 - 1)).Select
        miHoja.Paste
        fila = fila + 1
    Next
End Sub

Este código crea una nueva hoja llamada "Collage" y luego itera a través de las imágenes de la hoja "Fotos" del mismo libro. Para cada imagen, copia la imagen en el portapapeles y luego la pega en una celda en la hoja "Collage". Las imágenes se colocan en una cuadrícula de 4x5 en la hoja "Collage", con un espacio de una fila y una columna entre cada imagen.

Es importante tener en cuenta que este código funciona mejor con imágenes de tamaño similar y que no es el método más eficiente para crear collages en Excel. Si necesita crear collages de imágenes con frecuencia, es posible que desee utilizar una herramienta de edición de imágenes dedicada en lugar de Excel.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas