Imágenes en Excel: Insertar, redimensionar, guardar y eliminar varias imágenes o fotos en Excel

Para la mayoría de nosotros es sencillo insertar imágenes almacenadas en el equipo en la hoja de cálculo. Siga estos pasos:

1. En la hoja de cálculo, haga clic en el lugar donde desee insertar la imagen.

2. A continuación, haga clic en Insertar > Imágenes > Este dispositivo. Vea la captura de pantalla:

3. En la ventana emergente Insertar imagen, abra la carpeta que contiene las imágenes y mantenga pulsada la tecla Ctrl para seleccionar las imágenes que desea insertar. Vea la captura de pantalla:

4. A continuación, haga clic en el botón Insertar. Las imágenes seleccionadas se insertarán en la hoja. Ahora podrá ajustarlas o redimensionarlas en las celdas que necesite; consulte la captura de pantalla:

Si tiene Excel 2013 o una versión posterior, puede insertar imágenes directamente desde la web o OneDrive. Siga estos sencillos pasos:

1. En la hoja de cálculo, haga clic en el lugar donde desee insertar la imagen.

2. A continuación, haga clic en Insertar > Imágenes > Imágenes en línea. Vea la captura de pantalla:

3. Se mostrará la siguiente ventana. En la sección Imágenes en línea, escriba lo que busca en el cuadro de texto y pulse la tecla Intro. Al instante, se buscarán todas las imágenes correspondientes. Vea la captura de pantalla:

4. A continuación, seleccione las imágenes que desee y haga clic en el botón Insertar. Una vez insertadas, rediménsionelas o ajústelas a la posición que necesite.

El siguiente código VBA le permite insertar varias imágenes en celdas ajustándolas automáticamente a su tamaño. Siga estos pasos:

1. Ajuste el tamaño de las celdas en las que desea insertar la imagen y, a continuación, selecciónelas.

2. A continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del Módulo.

Código VBA: Insertar varias imágenes según el tamaño de la celda

Sub InsertPictures()
'Updateby Extendoffice
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. Pulse la tecla F5 para ejecutar este código. En la ventana Abrir, elija la carpeta que contiene las imágenes, seleccione las que desea insertar y haga clic en el botón Abrir. Todas las imágenes seleccionadas se insertarán en su selección ajustándose al tamaño de las celdas. Vea la captura de pantalla:

Si no está familiarizado con el código VBA, puede utilizar una potente función: Importar imágenes de Kutools para Excel. Con esta útil herramienta, podrá importar varias imágenes en las celdas de forma rápida y sencilla.

1. Haga clic en KUTOOLS PLUS > Importar/Exportar > Importar imágenes. Vea la captura de pantalla:

2. En el cuadro de diálogo emergente Importar imágenes, realice las siguientes operaciones:

• Especifique el orden de las imágenes desde la lista desplegable Orden de importación; puede elegir Llenar por columna, luego por filao Llenar por fila, luego por columna;
• A continuación, haga clic en el botón Agregarpara seleccionar el Archivos de imagen o la carpeta en la que desea agregar las imágenes al Lista de imágenes;
• Haga clic en el botón Tamaño de importación. En el cuadro de diálogo Tamaño de imagen al importar, seleccione la opción Tamaño de celda coincidente.
• 

3. Tras finalizar la configuración, haga clic en el botón Importar y aparecerá otra ventana: Importar imágenes. Especifique las celdas de destino en las que desea importar la imagen; consulte la captura de pantalla:

4. A continuación, haga clic en el botón Aceptar. Todas las imágenes seleccionadas se insertarán ajustándose automáticamente al tamaño de las celdas correspondientes, tal como se muestra en la siguiente captura de pantalla:

El siguiente código VBA le permite insertar rápidamente varias imágenes cuyos nombres coincidan. Siga estos pasos:

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del Módulo.

Código VBA: Insertar varias imágenes cuyos nombres coincidan

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

Nota: En el código anterior, puede ajustar la altura y el ancho de las imágenes en las líneas “.ShapeRange.Height = 60” y “.ShapeRange.Width = 60” según sus necesidades.

3. A continuación, pulse la tecla F5 para ejecutar este código. En la ventana que se abre, seleccione la carpeta que contiene las imágenes que desea insertar; consulte la captura de pantalla:

4. A continuación, haz clic en el botón Aceptar; aparecerá un cuadro de diálogo. Selecciona las celdas que contienen los nombres de las imágenes. Consulta la captura de pantalla:

5. Sigue haciendo clic en el botón Aceptar; aparecerá otro cuadro de diálogo. Selecciona las celdas en las que deseas insertar las imágenes; consulta la captura de pantalla:

6. Por último, haga clic en Aceptar y las imágenes se insertarán en las celdas según sus nombres de inmediato; consulte la captura de pantalla:

Si dispone de Kutools para Excel, con su función de Coincidir e importar imágenes, podrá insertar las imágenes basándose en el nombre de la imagen de forma rápida y sencilla.

1. Haga clic en KUTOOLS PLUS > Importar/Exportar > Coincidir importación de imágenes; consulte la captura de pantalla:

2. En el cuadro de diálogo emergente Coincidir e importar imagen, realice las siguientes operaciones:

• Especifique el orden de las imágenes desde la lista desplegable Orden de importación; puede elegir Llenar por columna, luego por filao Llenar por fila, luego por columna;
• A continuación, en el cuadro de texto Rango de coincidencia, seleccione los nombres de las imágenes según los que desea Insertar imagen;
• Luego, haga clic en el botón Agregarpara seleccionar el Archivos de imagen o la carpeta en la que desea agregar las imágenes al Lista de imágenes;
• A continuación, debe especificar el tamaño de las imágenes. Haga clic en el botón Tamaño de importación para abrir el cuadro de diálogo Tamaño de imagen al importar y seleccione el tamaño que necesite.
• 

3. Tras finalizar la configuración, haga clic en el botón Importar y seleccione una celda o un rango de celdas para ubicar las imágenes en el cuadro de diálogo emergente Coincidir importación de imágenes; consulte la captura de pantalla:

4. Luego, haga clic en Aceptar y se insertarán todas las imágenes cuyos nombres coincidan con los valores de las celdas; consulte la captura de pantalla:

Aplique el siguiente código VBA para insertar imágenes desde una lista de URLs.

1. En primer lugar, ajuste el tamaño de las celdas adyacentes en las que desea insertar las imágenes.

2. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del Módulo.

Código VBA: Insertar imágenes desde una lista de URLs

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Notas: En el código anterior, A2:A5 es el rango de celdas que contiene las direcciones URL de las que desea extraer las imágenes. Ajuste las referencias de celda según sus necesidades.

4. A continuación, pulse la tecla F5 para ejecutar este código. Las imágenes correspondientes se extraerán de las URLs a la columna adyacente y se centrarán en las celdas; consulte la captura de pantalla:

Kutools para Excel dispone de una función sorprendente: Insertar imágenes desde ruta (URL). Con esta utilidad, las imágenes correspondientes se extraerán de las URLs de forma rápida y sencilla.

1. Haga clic en Kutools > Insertar > Insertar imágenes desde ruta (URL); consulte la captura de pantalla:

2. En el cuadro de diálogo emergente Insertar imágenes desde ruta (URL), configure las siguientes opciones:

• Seleccione la lista de celdas con URL y un rango de celdas donde desee colocar las imágenes;
• Especifique el tamaño de las imágenes que necesite en la sección Tamaño de imagen.
• 

3. Luego, haga clic en el botón Aceptar y todas las imágenes se habrán extraído de las URLs. Consulte la captura de pantalla:

Puede aplicar el siguiente código VBA para insertar imágenes según la ruta del archivo de imagen.

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y luego pegue el siguiente código en la ventana del Módulo.

Código VBA: Insertar imagen desde un rango de Ruta de archivo

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Tras insertar el código anterior, pulse la tecla F5 para ejecutarlo. Aparecerá un cuadro de diálogo; por favor, seleccione las celdas de la ruta de archivo. Consulte la captura de pantalla:

4. A continuación, haga clic en el botón Aceptar y todas las imágenes basadas en la ruta de archivo se mostrarán en la columna siguiente, tal como se muestra en la siguiente captura de pantalla:

Kutools para Excel’s Insertar imágenes desde ruta (URL) también le permite mostrar las imágenes correspondientes desde la ruta de archivo.

1. Haga clic en Kutools > Insertar > Insertar imágenes desde ruta (URL). En el cuadro de diálogo emergente, especifique el rango de ruta de archivo, el rango para la salida de las imágenes y el tamaño de la imagen según sus necesidades; consulte las capturas de pantalla:

2. Tras configurar las opciones, haga clic en el botón Aceptar y las imágenes se insertarán de inmediato en las celdas seleccionadas; consulte la captura de pantalla:

Consejos: A veces, puede observar que la imagen se superpone al área de datos de la hoja de cálculo, tal como se muestra en la siguiente captura de pantalla. Esto ocurre porque la imagen es demasiado grande y no se redimensiona automáticamente para ajustarse al cuadro de encabezado o pie de página.

Para resolver este problema, solo tiene que redimensionar la imagen en el encabezado o pie de página. Siga estos pasos:

1. Haga clic en la sección del encabezado o pie de página donde se encuentra la imagen y, a continuación, haga clic en Formato de imagen en la pestaña Diseño; consulte la captura de pantalla:

2. En el cuadro de diálogo Formato de imagen, en la pestaña Tamaño, ajuste el tamaño de la imagen para que se adapte al cuadro del encabezado o del pie de página; consulte la captura de pantalla:

3. Luego, haga clic en Aceptar y obtendrá el resultado deseado.

1. Abra la hoja de cálculo en la que quiera insertar una imagen de fondo.

2. A continuación, haga clic en Diseño de página > Fondo. Consulte la captura de pantalla:

3. En la ventana emergente Insertar imágenes, seleccione una imagen desde su equipo, un sitio web o OneDrive según sus necesidades; consulte la captura de pantalla:

4. Ahora, la imagen se ha insertado en la hoja de cálculo como fondo, tal como se muestra en la siguiente captura de pantalla:

Con el método anterior, no es posible ajustar la transparencia de la imagen de fondo insertada. Por ello, si el color de la imagen es muy intenso, puede resultar incómodo leer los datos de la hoja de cálculo. A continuación, te explico cómo insertar una imagen con transparencia detrás de las celdas.

1. Haga clic en Insertar > Formas y seleccione una forma rectangular; consulte la captura de pantalla:

2. A continuación, dibuje en la hoja de cálculo activa una forma del tamaño que necesite.

3. Tras dibujar la forma, aparecerá la pestaña Herramientas de dibujo en la Cinta de opciones; a continuación, haga clic en Formato > Contorno de forma > Sin contorno. Consulte la captura de pantalla:

4. A continuación, haga clic con el botón derecho en la forma y elija Formato de forma en el menú contextual; consulte la captura de pantalla:

5. En el panel expandido Formato de forma, bajo la pestaña Relleno y línea, realice las siguientes operaciones:

• En la sección Relleno, seleccione la opción Relleno con imagen o textura;
• Haga clic en el botón Insertaren Origen de la imageny elija la imagen que desee insertar;
• A continuación, ajuste la transparencia de la imagen según sus necesidades en la sección Transparencia.
• 

6. A continuación, verá que la forma rellena con imágenes tiene el aspecto de una imagen de fondo, tal como se muestra en la captura de pantalla anterior.

Nota: tras insertar este tipo de imagen de fondo, no podrá escribir texto en el área que cubra la imagen.

Ambos métodos anteriores tienen sus propias limitaciones: el primero no permite ajustar la transparencia de la imagen, y el segundo impide introducir texto en las celdas ubicadas dentro del área de la imagen. Para resolver estos inconvenientes, la función Insertar marca de agua de Kutools para Excel puede ayudarte.

1. Haga clic en Kutools > Insertar > Insertar marca de agua. Consulte la captura de pantalla:

2. En el cuadro de diálogo emergente Insertar marca de agua, seleccione Marca de agua de imagen y, a continuación, haga clic en el botón Seleccionar imagen para elegir la imagen que desee insertar; luego especifique la escala de la imagen y active la opción Desvanecer. Consulte la captura de pantalla:

3. A continuación, haga clic en el botón Aceptar; la imagen se insertará en la hoja de cálculo como fondo.

En Excel, puede utilizar la función Copiar como imagen para copiar e insertar un rango de celdas como imagen.

1. Seleccione el rango de celdas que quiera copiar e insertar como imagen.

2. A continuación, haga clic en Inicio > Copiar > Copiar como imagen. Consulte la captura de pantalla:

3. En el cuadro de diálogo emergente Copiar imagen, seleccione Imagen en la sección Formato. Consulte la captura de pantalla:

4. A continuación, haga clic en el botón Aceptar; ahora solo tiene que pulsar Ctrl + V para pegar la imagen en cualquier lugar del libro.

En Excel existe una herramienta denominada Cámara que le permite tomar una instantánea de sus datos seleccionados y pegarla como imagen. Cuando los datos originales cambian, la imagen copiada también se actualiza dinámicamente.

En primer lugar, debe mostrar la herramienta Cámara en la Cinta de opciones y, a continuación, utilizarla.

1. Haga clic en el icono Personalizar barra de herramientas de acceso rápido y, a continuación, en la opción Más comandos. Consulte la captura de pantalla:

2. En el cuadro de diálogo Opciones de Excel que se abre, realice las siguientes operaciones:

• Seleccione Todos los comandosen la lista desplegable Elegir comandos de;
• Luego, desplácese para seleccionar Cámaraen el cuadro de lista;
• Después, haga clic en el botón Agregarpara añadir esta herramienta a la Barra de herramientas de acceso rápido personalizada;
• Por último, haga clic en Aceptar para cerrar este cuadro de diálogo.
• 

3. Y la herramienta Cámara ya aparecerá en la Cinta de opciones. Consulte la captura de pantalla:

4. A continuación, seleccione el rango de celdas del que quiera obtener una imagen.

5. A continuación, haga clic en la herramienta Cámara, vaya a la hoja de cálculo y haga clic en cualquier lugar; el rango de datos se insertará como una imagen, tal como se muestra en la siguiente demostración:

Si dispone de Kutools para Excel, con su función Biblioteca de recursos, puede guardar el Seleccionar Datos en el panel Biblioteca de recursos y, posteriormente, utilizarlo como imagen o texto según sus necesidades.

1. Seleccione el rango de datos que desea insertar como imagen.

2. A continuación, haga clic en Kutools > Navegación. Consulte la captura de pantalla:

3. En el panel expandido Navegación, haga clic en el icono Biblioteca de recursos y, a continuación, en el icono Agregar contenido seleccionado a AutoTexto. Consulte la captura de pantalla:

4. En el cuadro de diálogo Agregar a AutoTexto, especifique un nombre para este elemento y seleccione el grupo al que desea añadirlo. Consulte la captura de pantalla:

5. A continuación, haga clic en el botón Añadir para agregarlo al panel Biblioteca de recursos. Si desea insertar este rango como imagen, basta con hacer clic en una celda para ubicar la imagen y, a continuación, buscar el elemento guardado en el panel Biblioteca de recursos y hacer clic en Insertar como > Imagen (EMF) en la lista desplegable del elemento. Así, el rango de datos se insertará en la hoja como una imagen; consulte las capturas de pantalla:

Normalmente, en Excel puede crear un rango con nombre dinámico y luego usar una imagen vinculada para realizar esta tarea.

1. En primer lugar, crea dos columnas con los nombres de los productos y sus imágenes correspondientes; consulta la captura de pantalla:

2. A continuación, cree una lista desplegable para los valores de las celdas. Haga clic en la celda donde quiera generar la lista desplegable y, después, seleccione Datos > Validación de datos > Validación de datos. Consulte la captura de pantalla:

3. En el cuadro de diálogo Validación de datos que aparece, vaya a la pestaña Configuración, seleccione Lista en el menú desplegable Permitir y, a continuación, especifique en el cuadro de texto Origen las celdas a partir de las cuales desea crear la lista desplegable (consulte la captura de pantalla):

4. Haga clic en Aceptar y se habrá creado la lista desplegable con los valores de las celdas. Seleccione un elemento de la lista desplegable; consulte la captura de pantalla:

5. A continuación, haga clic en Fórmulas > Definir nombre. Consulte la captura de pantalla:

6. En el cuadro de diálogo Nuevo nombre, realice las siguientes operaciones:

• Introduzca un nombre llamado myimage en el cuadro de texto Nombre;
• Luego copie y pegue esta fórmula:=ÍNDICE(Hoja11!$A$2:$B$6;COINCIDIR(Hoja11!$E$2;Hoja11!$A$2:$A$6;0);2)en el cuadro de texto Hace referencia a.

  

  Nota: En la fórmula anterior:

  • Sheet11!$A$2:$B$6: es la hoja de cálculo y el rango que contienen los valores e imágenes que desea utilizar;
  • Sheet11!$E$2: es la celda dentro de la hoja donde ha creado la lista desplegable;
  • Sheet11!$A$2:$A$6: es la lista de celdas en la que se basa la lista desplegable que ha creado;
  • El número variable 2 es el número de la columna que contiene las imágenes. Si sus imágenes están en la columna C, debe introducir 3.

7. A continuación, haga clic en el botón Aceptar y, después, copie y pegue la imagen correspondiente al valor de la celda E2 desde el rango original en la celda F2. Consulte la captura de pantalla:

8. A continuación, selecciona la imagen en la celda F2 e introduce esta fórmula =myimage (myimage es el nombre del rango que creaste en el paso 6) en la barra de fórmulas. Consulta la captura de pantalla:

9. Tras introducir la fórmula, pulse la tecla Intro y, al seleccionar un elemento de la lista desplegable, su imagen correspondiente aparecerá inmediatamente. Consulte la captura de pantalla:

El método anterior puede resultar complicado para la mayoría de nosotros. A continuación, presento una función práctica: Lista desplegable de imágenes de Kutools para Excel. Con esta útil herramienta, podrás crear varias listas desplegables con sus imágenes correspondientes en solo unos clics.

1. En primer lugar, crea dos columnas en tu hoja de cálculo con los nombres de los productos y sus imágenes correspondientes.

2. A continuación, haga clic en Kutools > Lista desplegable > Lista desplegable de imágenes. Consulte la captura de pantalla:

3. En el cuadro de diálogo Lista desplegable de imágenes, si ya ha creado las columnas con los valores de las celdas y las imágenes, omita el paso 1. A continuación, seleccione el rango original de datos e imágenes y el área de ubicación de la lista; consulte la captura de pantalla:

4. A continuación, haga clic en el botón Aceptar y las listas desplegables con imágenes se crearán automáticamente en las celdas seleccionadas. Al seleccionar una opción en la lista desplegable, su imagen correspondiente aparecerá al instante. ¡Mire la siguiente demostración:

Normalmente, puede utilizar la función Guardar como para guardar todas las imágenes del libro. Siga estos pasos:

1. Haga clic en Archivo > Guardar como. En la ventana Guardar como, especifique una carpeta para guardar los archivos exportados y, a continuación, seleccione Página web (*.htm; *.html) en la lista desplegable Tipo. Consulte la captura de pantalla:

2. A continuación, haga clic en el botón Guardar. Vaya a la carpeta especificada y verá dos elementos: un archivo en formato HTML y una carpeta con las imágenes, gráficos u otros objetos del libro. Consulte la captura de pantalla:

3. A continuación, puede arrastrar solo las imágenes a otra carpeta según sus necesidades.

Nota: Al utilizar esta función Guardar como, obtendrá cada imagen dos veces: una en tamaño pequeño y otra en tamaño grande, por lo que podrá guardar las imágenes de mayor resolución según lo necesite.

Para guardar todas las imágenes de un archivo de Excel, también puede cambiar la extensión del archivo a .RAR. Siga estos pasos:

1. Cambie la extensión del archivo de xlsx a rar, tal como se muestra en la siguiente captura de pantalla:

2. A continuación, descomprima el archivo y encontrará 3 carpetas y 1 archivo dentro de la carpeta. Consulte la captura de pantalla:

3. A continuación, haga clic para abrir la carpeta xl y, después, abra la carpeta media. Verá que todas las imágenes se almacenan aquí sin duplicados. Consulte la captura de pantalla:

Si dispone de Kutools para Excel, con su función Exportar gráfico podrá exportar rápidamente objetos específicos, como imágenes, gráficos o formas, al formato de imagen que necesite.

1. Haga clic en KUTOOLS PLUS > Importar/Exportar > Exportar gráfico. Consulte la captura de pantalla:

2. En el cuadro de diálogo Exportar gráfico, realice las siguientes operaciones:

• Elija la opción Imágenesen la lista desplegable Tipos;
• Especifique una carpeta para guardar las imágenes exportadas;
• A continuación, haga clic en la lista desplegable del campo Formato de exportación para elegir el formato de sus imágenes.
• 

3. Por último, haga clic en el botón Aceptar y todas las imágenes del libro de trabajo actual se guardarán en la carpeta que especificó. Consulte la captura de pantalla:

Para eliminar las imágenes de la hoja de trabajo actual, el siguiente código VBA le será de gran ayuda. Siga estos sencillos pasos:

1. Activa la hoja de cálculo que contiene las imágenes que deseas eliminar.

2. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del Módulo.

Código VBA: Eliminar todas las imágenes de Hoja de trabajo actual

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4. A continuación, pulse la tecla F5 para ejecutar este código y todas las imágenes de la hoja activa se eliminarán de inmediato.

Si necesita eliminar las imágenes de un rango específico de celdas, aquí tiene otro código sencillo que le será de gran ayuda.

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del Módulo.

Código VBA: Eliminar las imágenes de un rango de celdas

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Nota: En el código anterior, B4:C6 es el rango del que desea eliminar las imágenes.

3. A continuación, pulse la tecla F5 para ejecutar este código y las imágenes del rango seleccionado se eliminarán de inmediato. Vea las capturas de pantalla:

Si dispone de Kutools para Excel, con su función Eliminar imágenes y objetos, podrá eliminar rápidamente las imágenes de una hoja de cálculo, de varias hojas seleccionadas o del libro completo.

1. Haga clic en Kutools > Eliminar > Eliminar imágenes y objetos. Vea la captura de pantalla:

2. En el cuadro de diálogo Eliminar imágenes y objetos que se abre, active la casilla Imágenes en la sección Eliminar y, a continuación, especifique el ámbito del que desea eliminar las imágenes en la sección Buscar en. Vea la captura de pantalla:

3. A continuación, haga clic en el botón Aceptar y todas las imágenes se eliminarán de la hoja de cálculo, de las hojas de trabajo seleccionadas o del libro completo, según haya especificado.