Note: The other languages of the website are Google-translated. Back to English

¿Cómo insertar varias imágenes y cambiar su tamaño a la vez en Excel?

Es fácil para nosotros insertar una imagen en Excel, pero si necesita insertar varias imágenes a la vez para ahorrar mucho tiempo, ¿cómo podría hacerlo?


Inserte varias imágenes y cambie su tamaño de forma masiva mediante la función Insertar imagen

Podemos insertar varias imágenes a granel mediante la función (Insertar) Imagen en Excel y luego cambiar su tamaño simultáneamente. Haz lo siguiente:

1. En la hoja de trabajo, haga clic en recuadro > Imagen.

2. En el cuadro de diálogo Insertar imagen, abra la carpeta que contiene las imágenes que insertará, seleccione varias imágenes que necesite y haga clic en el recuadro botón. Ver captura de pantalla:
Nota:: Sosteniendo Ctrl clave, puede seleccionar varias imágenes no adyacentes haciendo clic en ellas una por una; participación cambio , puede seleccionar varias imágenes adyacentes haciendo clic en la primera imagen y la última.

Ahora las imágenes se insertan a granel y se apilan en la hoja de trabajo.

3. Mantenga estas imágenes seleccionadas y cambie su tamaño de forma masiva ingresando un nuevo número en ambos Ancho Mínimo y Altura cajas en el Tamaño grupo en el Formato lengüeta. Ver captura de pantalla:

Ahora todas las imágenes insertadas se cambian al mismo tamaño simultáneamente a la vez.

4. En la actualidad, debe mover manualmente cada imagen por separado a un lugar adecuado.

Nota:: Si hay docenas de imágenes apiladas, será bastante lento moverlas manualmente para que quepan en los lugares.

Inserte por lotes varias imágenes que coincidan con el contenido de la celda en Excel

El Imágenes de importación de partidos La característica de Kutools para Excel, es una herramienta fantástica que puede importar por lotes e insertar varias imágenes según el contenido de la celda, y cambiar el tamaño de las imágenes importadas al igual que el tamaño de la celda o al tamaño especificado fácilmente.


anuncio de fotos importadas 01

Kutools for Excel - Incluye más de 300 herramientas útiles para Excel. Prueba gratuita de funciones completas 30-día, no se requiere tarjeta de crédito! Consíguelo ahora

Inserte varias imágenes y cambie su tamaño de forma masiva con OneNote

Para evitar mover las imágenes apiladas una por una, este método presenta otro truco para insertar varias imágenes con la ayuda de OneNote. Haz lo siguiente:

1. Inicie OneNote y cree una nueva página. Y luego haga clic en recuadro > Imagen.

2. En el cuadro de diálogo Insertar imagen, abra la carpeta que contiene las imágenes que insertará, seleccione varias imágenes que necesite y haga clic en el recuadro botón. Ver captura de pantalla:
Nota:: Sosteniendo Ctrl clave, puede seleccionar varias imágenes no adyacentes haciendo clic en ellas una por una; participación cambio , puede seleccionar varias imágenes adyacentes haciendo clic en la primera imagen y la última.

doc insertar varias imágenes OneNote 032

3. prensa Ctrl + A para seleccionar todas las imágenes insertadas en OneNote y luego presione Ctrl + C claves para copiarlos.

4. Vaya a la hoja de trabajo en Excel y presione Ctrl + V claves para pegar las imágenes en la hoja de trabajo. Ahora todas las imágenes se pegan verticalmente como se muestra en la captura de pantalla izquierda.

5. Seleccione cualquiera de las imágenes y presione Ctrl + A teclas para seleccionarlas todas. Luego, cambie el tamaño de las imágenes a granel ingresando nuevos números en ambos Ancho Mínimo y Altura cajas en el Tamaño grupo en el Formato lengüeta. Ver captura de pantalla:

Ahora todas las imágenes especificadas se insertan en Excel y se redimensionan al mismo tamaño de forma masiva.


Inserte varias imágenes en Excel con código VBA

Con el siguiente código VBA, puede insertar varias imágenes en el archivo de Excel celda por celda.

1. Seleccione la primera celda del rango de destino en el que desea insertar imágenes.

2. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

3. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Ventana de módulo.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Luego presione el F5 clave para ejecutar este código.

5. En el cuadro de diálogo Abrir, abra la carpeta que contiene las imágenes que desea insertar, seleccione varias imágenes que insertará y haga clic en el Abierta botón. Y todas las imágenes seleccionadas se han importado a su selección en función del tamaño de la celda. Ver captura de pantalla:


Inserte varias imágenes y ajústelas automáticamente con Kutools para Excel

Kutools for Excel, Importar imágenes La utilidad puede ayudarlo a insertar rápidamente varias imágenes en Excel según el tamaño de la celda o el tamaño de la imagen. También puede especificar la altura y el ancho de las imágenes según sus necesidades.

Kutools for Excel - Incluye más de 300 herramientas útiles para Excel. Prueba gratuita de funciones completas 30-día, no se requiere tarjeta de crédito! Consíguelo ahora

1. Hacer clic Kutools Más > Import / Export > Importar imágenes, ver captura de pantalla:

2. En la Importar imágenes cuadro de diálogo, haga lo siguiente:
(1) Especifique el orden de visualización de las imágenes del Orden de importación lista desplegable, puede elegir Llenar verticalmente celda tras celda or Rellenar horizontalmente celda tras celda.
(2) Click Añada para seleccionar los archivos de imagen o la carpeta para agregar las imágenes a la lista de imágenes. Y todas las imágenes seleccionadas aparecerán en el cuadro de lista.
(3) Haga clic en el Tamaño de importación botón;

3. Ahora en el Importar tamaño de imagen cuadro de diálogo, puede elegir el tamaño de la imagen que coincida con sus necesidades. Ver captura de pantalla:

4. Después de especificar el tamaño de la imagen, haga clic en OK para cerrar este cuadro de diálogo y volver al Importar imágenes diálogo, haga clic Importa botón para importar las imágenes.

5. En el nuevo cuadro de diálogo Importar imágenes, elija la primera celda del rango de destino en el que insertará imágenes y haga clic en OK

En la actualidad, todas las imágenes seleccionadas se han insertado en sus celdas desde la celda activa vertical u horizontalmente. Ver captura de pantalla derecha:

El Importar imágenes La función de Kutools para Excel está diseñada para insertar un lote de imágenes simultáneamente con el tamaño de celda correspondiente, el tamaño especificado o los tamaños propios de las imágenes en Excel. ¡Tenga una prueba gratis!


Inserte varias imágenes que coincidan con sus nombres con Kutools para Excel

Kutools para Excel también admite un dramático Imágenes de importación de partidos función para hacer coincidir imágenes y contenido de celda e insertar imágenes coincidentes solo de forma masiva en Excel.

Kutools for Excel - Incluye más de 300 herramientas útiles para Excel. Prueba gratuita de funciones completas 30-día, no se requiere tarjeta de crédito! Consíguelo ahora

1. Seleccione las celdas de su nombre de imagen en las que desea insertar sus imágenes coincidentes y haga clic en Kutools Más > Import / Export > Imágenes de importación de partidos. ver captura de pantalla:

2. En el cuadro de diálogo emergente Match Import Pictures, haga lo siguiente:
(1) Especifique el orden de visualización de las imágenes del Orden de importación la lista desplegable;
(2) Click Añada para agregar las imágenes al cuadro de lista de imágenes. Para su información, solo se enumerarán las imágenes que coincidan.
(3) Luego haga clic en Tamaño de importación

3. Ahora en el Importar tamaño de imagen diálogo, puede elegir el tamaño de la imagen que coincida con su necesidad y hacer clic en el Ok botón. Ver captura de pantalla:

4. Ahora regresa al Importar imágenes diálogo, haga clic Importa botón para importar las imágenes.

5. En el cuadro de diálogo emergente Match Import Pictures, especifique la primera celda del rango de destino donde insertará las imágenes y haga clic en OK botón. Ver captura de pantalla:

Hasta ahora, todas las imágenes se insertan en las celdas según sus nombres relativos. Ver captura de pantalla derecha:

El Imágenes de importación de partidos La función de Kutools para Excel puede ayudar a los usuarios de Excel a filtrar rápidamente imágenes en función de los valores de celda y luego insertar estas imágenes a granel. Además, estas imágenes coincidentes se pueden cambiar de tamaño al tamaño especificado o al tamaño de celda automáticamente. ¡Tenga una prueba gratis!


Demostración: inserte varias imágenes y cambie su tamaño a la vez en Excel

Kutools for Excel incluye más de 300 herramientas útiles para Excel, gratis para probar sin limitación en 30 día. Prueba gratis ahora!      ¡Compra ahora!


Artículos relacionados


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (47)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Las instrucciones con el encabezado: ¡Insertar varias imágenes en Excel con código VBA es simplemente increíble, rápido y efectivo! esta es una buena alternativa para comprar e instalar complementos. Este es mi primer comentario en línea !! felicitaciones!
Este comentario fue minimizado por el moderador en el sitio
Hola, puedo usar el módulo InsertPictures y funciona correctamente hasta jpg. Sin embargo, no quiere funcionar para PNG. ¿Puede aconsejarme? Saludos, Lorenzo
Este comentario fue minimizado por el moderador en el sitio
En el primer tema "Insertar varias imágenes en Excel con código VBA", ¿cómo inserto una imagen en dos celdas? por ejemplo, la primera imagen se insertará en las celdas A1 y A2, la segunda imagen se insertará en las celdas A3 y A4 y así sucesivamente.
Este comentario fue minimizado por el moderador en el sitio
buen soporte para Excel... ustedes gyus realmente están ayudando a ahorrar tiempo. Gracias
Este comentario fue minimizado por el moderador en el sitio
¡Buena publicación! Pero tengo otras formas de hacer lo mismo..... =================================== ============ Sub ipic() Dim i As Integer For i = 2 to 10 Cells(i, 1).Select Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Insertar("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg"). Seleccionar con selección .Izquierda = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# Terminar con el siguiente rango ("a1").Seleccione End Sub
Este comentario fue minimizado por el moderador en el sitio
¿Existe una versión de Kuttools para Mac?
Este comentario fue minimizado por el moderador en el sitio
¿Es posible modificar ese código vba para insertar 4 imágenes en un patrón de cuadrícula como este: pic1 en A1, pic2 en A2, pic3 en B1 y pic4 en B2? ¡Tanques!
Este comentario fue minimizado por el moderador en el sitio
No importa, encontré cómo hacerlo :)
Este comentario fue minimizado por el moderador en el sitio
Hola, ¿podrías compartir el código modificado?
Este comentario fue minimizado por el moderador en el sitio
Sub InsertPictures() 'Actualizar 20140513 Dim PicList() Como variante Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Luego xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Este comentario fue minimizado por el moderador en el sitio
¿Podría ayudarme a modificar el código para insertar la columna y la fila combinadas? Sub InsertPictures() 'Actualizar 20140513 Dim PicList() como variante Dim PicFormat como cadena Dim Rng como rango Dim sShape como forma en caso de error Reanudar siguiente PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Columna If IsArray(PicList) Entonces xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Este comentario fue minimizado por el moderador en el sitio
seleccione las celdas y cambie su tamaño por ancho y alto según sus necesidades ... si tiene diez fotos, seleccione diez celdas o más, ¡seleccione más ...! luego presione Alt+F11 luego haga clic en INSERTAR LUEGO haga clic en MÓDULO LUEGO PEGUE EL SIGUIENTE CÓDIGO COMO ESTÁ. PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Then xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells( xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 20140513 Next End If End Sub DESPUÉS DEL SOBRE EL CÓDIGO PRESIONE F1 .. LUEGO SELECCIONE LOS ARCHIVOS DE LA COMPUTADORA DONDE SE ENCUENTREN. HASTA SU NECESIDAD. ENTONCES, SI NO GUARDÓ EL LIBRO DE TRABAJO, SE LE SOLICITARÁ GUARDARLO. SI YA LO GUARDÓ. ENTONCES TU TRABAJO ES ESPERO QUE ESTO AYUDE... ¡¡Ali!!
Este comentario fue minimizado por el moderador en el sitio
muchas gracias, funciona
Este comentario fue minimizado por el moderador en el sitio
Hola EXcel Masters, tengo 2 hojas de Excel. Uno con más de cien Imágenes y una descripción de la imagen en la celda contigua. La otra hoja después de la selección probablemente quedó con 40 descripciones. ¿Cómo puedo transferir las imágenes a esta hoja según mi selección? Gracias al
Este comentario fue minimizado por el moderador en el sitio
o usas directamente image-xls . con este complemento de Excel, puede insertar un número ilimitado de imágenes en la celda de Excel o como un comentario. también cambia el tamaño de sus imágenes. y es posible ordenar y filtrar su hoja de Excel, ¡incluyendo las Imágenes!
Este comentario fue minimizado por el moderador en el sitio
Soy usuario de Mac y una vez que copié el código en el nuevo módulo y lo ejecuté, no pasó nada. ¿Hay algo que deba hacer en mac para ejecutar el código VBA? Gracias
Este comentario fue minimizado por el moderador en el sitio
[cita] o usas directamente image-xls . con este complemento de Excel, puede insertar un número ilimitado de imágenes en la celda de Excel o como un comentario. también cambia el tamaño de sus imágenes. y es posible ordenar y filtrar su hoja de Excel, ¡incluyendo las Imágenes!por armin[/quote] [quote]Las instrucciones con el encabezado: ¡Insertar varias imágenes en Excel con código VBA es simplemente increíble, rápido y efectivo! esta es una buena alternativa para comprar e instalar complementos. Este es mi primer comentario en línea !! felicitaciones!Por Rahul Gupta[/quote] Intenté esto y parece funcionar bien, pero no puede ordenar ni filtrar la lista de Excel, incluidas las fotos. Además, las fotos no están escaladas proporcionalmente. así que compré image-xls - cuesta un poco, pero hace todo lo que necesito
Este comentario fue minimizado por el moderador en el sitio
¡Hola! ¿Alguna razón por la que "Sub InsertPictures ()" no funcionaría en Excel 2003? Ya agregué la referencia a Microsoft.Scripting.Runtime Gracias de antemano Gilberto
Este comentario fue minimizado por el moderador en el sitio
me es de mucha ayuda. Es tan buen trabajo....... Gracias
Este comentario fue minimizado por el moderador en el sitio
Hola, probé el código en mi hoja de cálculo y funcionó perfecto. Hasta que intento hacer un filtro. Encuentre que la última imagen siempre se mostrará en el resultado del filtro. alguien capaz de ayudar?
Este comentario fue minimizado por el moderador en el sitio
Usando el programa VBA a continuación, no se puede insertar la imagen en la celda combinada, Sub InsertPictures() 'Actualización 20140513 Dim PicList() Como variante Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Reanudar Next PicList = Application.Get OpenFilename (Pi cFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Por favor, aconséjenme modificar el VBA .
Este comentario fue minimizado por el moderador en el sitio
¡Hola a todos, esto es genial! Sigo tus tutoriales desde hace un tiempo. Esperaba que pudieras ayudarme con esto: ¿cómo cambio esto de pegar las imágenes en una columna a través de una fila? ¿Y cómo puedo agregar el "Nombre completo del archivo (es decir, example_image.jpg)" a la fila que se encuentra arriba? Fila 'A': "Nombre de archivo.jpg" Fila 'B': "Imagen en miniatura" ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Oye, inserté las imágenes usando mi propio código VBE. Y ahora he tratado de compartirlo con los demás, lamentablemente no pueden ver las imágenes.... Estaría agradecido si alguien pudiera decirme qué me estoy perdiendo. Gracias
Este comentario fue minimizado por el moderador en el sitio
Este código CASI funciona para mis necesidades. Tengo 200 imágenes, cada imagen debe ir en su propia hoja. ¿Cómo hago eso?
Este comentario fue minimizado por el moderador en el sitio
¿Cómo puedo modificar el siguiente código para que las imágenes se completen en un rango seleccionado de celdas en varias columnas y filas en lugar de celdas consecutivas en filas sucesivas en la misma columna? Sub InsertPictures() 'Actualizar 20140513 Dim PicList() como variante Dim PicFormat como cadena Dim Rng como rango Dim sShape como forma en caso de error Reanudar siguiente PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Columna If IsArray(PicList) Entonces xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Este comentario fue minimizado por el moderador en el sitio
¿Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
No hay comentarios publicados aquí todavía
Ver más

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL