una - Insertar imagen en la celda excel

insertar imagen en celda excel macro

Question

Esto puede sonar tonto, pero necesito generar un informe con imágenes, y no puedo obtener las imágenes en una sola celda. Puedo hacer que las imágenes "floten" alrededor de mi hoja de trabajo, pero necesito ponerlas en una celda. ¿Cómo puedo hacer esto?

Answer 1

Ahora podemos agregar una imagen a Excel directa y fácilmente. Solo sigue estas instrucciones:

1. Ve a la pestaña Insertar.
2. Haga clic en la opción Imágenes (está en el grupo de ilustraciones).
3. En el cuadro de diálogo "Insertar imagen", ubique las imágenes que desea insertar en una celda en Excel.
4. Haga clic en el botón Insertar.
5. Vuelva a clasificar según el tamaño la imagen / la imagen de modo que pueda caber perfectamente dentro de la célula.
6. Coloque la imagen en la celda. Una buena manera de hacerlo es presionar primero la tecla ALT y luego mover la imagen con el mouse. Se romperá y se organizará con el borde de la celda tan pronto como se acerque a ella.

Si tiene varias imágenes, puede seleccionar e insertar todas las imágenes a la vez (como se muestra en el paso 4).

También puede cambiar el tamaño de las imágenes seleccionándolas y arrastrando los bordes. En el caso de logotipos o imágenes de productos, es posible que desee mantener intacta la relación de aspecto de la imagen. Para mantener intacta la relación de aspecto, use las esquinas de una imagen para cambiar su tamaño.

Cuando coloca una imagen dentro de una celda siguiendo los pasos anteriores, no se quedará con la celda en caso de que cambie el tamaño, filtre u oculte las celdas. Si desea que la imagen se adhiera a la celda, debe bloquear la imagen en la celda en la que se encuentra n.

Para hacer esto, debe seguir los pasos adicionales que se muestran a continuación.

1. Haga clic derecho en la imagen y seleccione Formatear imagen.
2. En el panel Formato de imagen, seleccione Tamaño y propiedades y con las opciones en Propiedades, seleccione ''Mover y dimensionar con celdas''.

Ahora puede mover celdas, filtrarlo u ocultarlo, y la imagen también se moverá / filtrará / ocultará.

NOTA:

Esta respuesta se ha tomado de este enlace: Insertar imagen en una celda en Excel .

Answer 2

Hay una manera más rápida ( https://www.youtube.com/watch?v=TSjEMLBAYVc ):

1. Insertar imagen (Ctrl + V) a excel.
2. Validar "Herramientas de imagen -> Alinear -> Ajustar a cuadrícula" está marcado
3. Cambiar el tamaño de la imagen para que se ajuste a la celda (o número de celdas)
4. Haga clic derecho en la imagen y marque "Tamaño y propiedades ... -> Propiedades -> Mover y tamaño con celdas"

Answer 3

Puedes agregar la imagen en un comentario.

Haga clic con el botón derecho en celda> Insertar comentario> haga clic derecho en sombreado (área gris) en el exterior del cuadro de comentarios> Formato de comentario> Colores y líneas> Relleno> Color> Efectos de relleno> Imagen> (Buscar imagen)> Haga clic en Aceptar

La imagen aparecerá al pasar el cursor sobre ella.

.

También hay un producto de $ 20 para Windows - Asistente de imagen de Excel ...

Answer 4

Si bien mi recomendación es aprovechar la automatización disponible en Doality.com específicamente Picture Manager for Excel

El siguiente código vba debe cumplir sus criterios. ¡Buena suerte!

Agregue un control de botón a su libro de Excel y luego haga doble clic en el botón para acceder al código de VBA ->

Sub Button1_Click()
Dim filePathCell As Range
Dim imageLocationCell As Range
Dim filePath As String
Set filePathCell = Application.InputBox(Prompt:= _
"Please select the cell that contains the reference path to your image file", _
Title:="Specify File Path", Type:=8)
Set imageLocationCell = Application.InputBox(Prompt:= _
"Please select the cell where you would like your image to be inserted.", _
Title:="Image Cell", Type:=8)
If filePathCell Is Nothing Then
MsgBox ("Please make a selection for file path")
Exit Sub
Else
If filePathCell.Cells.Count > 1 Then
MsgBox ("Please select only a single cell that contains the file location")
Exit Sub
Else
filePath = Cells(filePathCell.Row, filePathCell.Column).Value
End If
End If
If imageLocationCell Is Nothing Then
MsgBox ("Please make a selection for image location")
Exit Sub
Else
If imageLocationCell.Cells.Count > 1 Then
MsgBox ("Please select only a single cell where you want the image to be populated")
Exit Sub
Else
InsertPic filePath, imageLocationCell
Exit Sub
End If
End If
End Sub

Luego crea tu Método de inserción de la siguiente manera:

Private Sub InsertPic(filePath As String, ByVal insertCell As Range)
Dim xlShapes As Shapes
Dim xlPic As Shape
Dim xlWorksheet As Worksheet
If IsEmpty(filePath) Or Len(Dir(filePath)) = 0 Then
MsgBox ("File Path invalid")
Exit Sub
End If
Set xlWorksheet = ActiveSheet
Set xlPic = xlWorksheet.Shapes.AddPicture(filePath, msoFalse, msoCTrue, insertCell.top, insertCell.left, insertCell.width, insertCell.height)
xlPic.LockAspectRatio = msoCTrue
End Sub

Answer 5

solo vaya a Google Docs y pegue esto como una fórmula, donde URL es un enlace a su img

 =image("URL", 1)

después, desde las opciones de Google Docs, descarga para Excel y tendrás tu imagen en la celda. EDITAR Por comentarios, no necesitas mantener la URL de la imagen viva por tanto tiempo, el tiempo suficiente para que excel la descargue. Entonces permanecerá incrustado en el archivo.

Answer 6

Puedes hacerlo en menos de un minuto con Google Drive (y gratis, sin problemas)

• A granel Cargue todas sus imágenes en imgur.com

• Copie los enlaces de todas las imágenes juntas, con un anexo con .jpg. Solo imgur te permite copiar todos los enlaces de imagen, hazlo usando la pestaña de imagen arriba a la derecha.

• Use http://TextMechanic.co para anteponer y anexar cada línea con esto: Prefijo: =image(" AND Suffix: ", 1)

Para que se vea como this =image("URL", 1)

• Copie todo

• Pegarlo en Google Spreadsheet

• ¡Voila!

Referencias

http://www.labnol.org/internet/images-in-google-spreadsheet/18167/

https://support.google.com/drive/bin/answer.py?hl=en&answer=87037&from=1068225&rd=1