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

Para la mayoría de usuarios, insertar imágenes almacenadas en el ordenador en la hoja de cálculo es sencillo. Haz lo siguiente:

1. En la hoja de cálculo, haz clic donde quieras insertar las imágenes.

2. Después, haz clic en Insertar > Imágenes > Este dispositivo, como se muestra en la captura:

3. En la ventana emergente Insertar imagen, abre la carpeta que contiene las imágenes y mantén pulsada la tecla Ctrl para seleccionar las imágenes que deseas insertar, como se muestra en la captura:

4. Luego, haz clic en el botón Insertar; las imágenes seleccionadas se habrán insertado en la hoja. Ahora puedes ajustar o redimensionar las imágenes para que encajen en las celdas que necesites, como se muestra en la captura:

Si tienes Excel2013 o una versión posterior, puedes insertar imágenes desde la web o OneDrive. Haz lo siguiente:

1. En la hoja de cálculo, haz clic donde quieras insertar las imágenes.

2. Después, haz clic en Insertar > Imágenes > Imágenes en línea, como se muestra en la captura:

3. Se mostrará una ventana. En la sección Imágenes en línea, escribe lo que buscas en el cuadro de texto y pulsa la tecla Enter. Todas las imágenes correspondientes se mostrarán de inmediato, como se muestra en la captura:

4. Selecciona las imágenes que desees y haz clic en Insertar. Después de insertarlas, ajusta o redimensiona las imágenes a la posición que necesites.

El siguiente código VBA puede ayudarte a insertar varias imágenes en las celdas según el tamaño de la celda. Haz lo siguiente:

1. Ajusta el tamaño de la celda donde quieras colocar la imagen y selecciona las celdas.

2. Luego, mantén pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo y pega 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. Luego, pulsa la tecla F5 para ejecutar este código. En la ventana Abrir, elige la carpeta que contiene las imágenes, selecciona las imágenes que deseas insertar y haz clic en Abrir. Todas las imágenes seleccionadas se insertarán en tu selección según el tamaño de la celda. Consulta la captura:

Si no te manejas con el código VBA, puedes utilizar la función avanzada – Importar imágenes de Kutools para Excel. Con esta útil función, puedes importar varias imágenes en las celdas de forma rápida y sencilla.

1. Haz clic en Kutools Plus > Importar y exportar > Importar imágenes, como se muestra en la captura:

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

• Especifica el orden de las imágenes desde la lista desplegable Orden de importación; puedes elegir Llenar por columna, luego por fila o Llenar por fila, luego por columna;
• Luego, haz clic en el botón Agregar para seleccionar los archivos de imagen o la carpeta y añadir las imágenes a la lista de imágenes;
• Haz clic en el botón Tamaño de importación y, en el cuadro de diálogo Tamaño de imagen de importación, selecciona la opción Tamaño de celda coincidente.
• 

3. Tras finalizar la configuración, haz clic en Importar y, ahora, en el siguiente Importar imágenes, especifica las celdas de destino donde se insertarán las imágenes, como se muestra en la captura:

4. Luego, haz clic en OK; todas las imágenes seleccionadas se habrán insertado ajustándose al tamaño de las celdas específicas, como se muestra en la siguiente captura:

El siguiente código VBA puede ayudarte a insertar varias imágenes coincidiendo con sus nombres de forma rápida. Haz lo siguiente:

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

2. Haz clic en Insertar > Módulo y pega la siguiente macro en la ventana del Módulo.

Código VBA: Insertar varias imágenes coincidiendo con sus nombres

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, puedes cambiar la altura y el ancho de la imagen dentro de los scripts “.ShapeRange.Height =60”, “.ShapeRange.Width =60” según lo necesites.

3. Luego, pulsa la tecla F5 para ejecutar este código y, en la ventana que se abre, selecciona la carpeta que contiene las imágenes que deseas insertar, como se muestra en la captura:

4. Haz clic en OK; aparecerá un cuadro de aviso, selecciona las celdas que contienen los nombres de las imágenes, como se muestra en la captura:

5. Haz clic en OK de nuevo; aparecerá otro cuadro de aviso, selecciona las celdas donde deseas mostrar las imágenes, como se muestra en la captura:

6. Por último, haz clic en OK y las imágenes se insertarán en las celdas según sus nombres de inmediato, como se muestra en la captura:

Si cuentas con Kutools para Excel, con su función Coincidir importación de imágenes, puedes insertar imágenes basadas en los nombres de imagen de forma rápida y sencilla.

1. Haz clic en Kutools Plus > Importar y exportar > Coincidir importación de imágenes, como se muestra en la captura:

2. En el cuadro de diálogo emergente Coincidir importación de imágenes, realiza las siguientes operaciones:

• Especifica el orden de las imágenes desde la lista desplegable Orden de importación; puedes elegir Llenar por columna, luego por fila o Llenar por fila, luego por columna;
• Luego, desde el cuadro de texto Rango de coincidencia, selecciona los nombres de las imágenes sobre los que deseas insertar las imágenes;
• Después, haz clic en el botón Agregar para seleccionar los archivos de imagen o la carpeta y añadir las imágenes a la lista de imágenes;
• A continuación, debes especificar el tamaño de la imagen. Haz clic en el botón Tamaño de importación y, en el cuadro de diálogo Tamaño de imagen de importación, selecciona el tamaño de imagen que necesites.
• 

3. Tras finalizar la configuración, haz clic en Importar, elige una celda o una lista de celdas para ubicar las imágenes desde el cuadro de diálogo emergente Coincidir importación de imágenes, como se muestra en la captura:

4. Luego, haz clic en OK y todas las imágenes cuyos nombres coincidan con los valores de las celdas se habrán insertado, como se muestra en la captura:

Aplica el siguiente código VBA para insertar imágenes a partir de una lista de URLs.

1. Primero, ajusta el tamaño de la celda adyacente donde quieres ubicar las imágenes.

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

3. Haz clic en Insertar > Módulo y pega 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 deseas extraer las imágenes; debes cambiar las referencias de celda según lo necesites.

4. Luego, pulsa la tecla F5 para ejecutar este código; las imágenes coincidentes se extraerán de las URLs a la columna adyacente y se colocarán en el centro de las celdas, como se muestra en la captura:

Kutools para Excel dispone de una función destacada – 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. Haz clic en Kutools > Insertar > Insertar imágenes desde ruta (URL), como se muestra en la captura:

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

• Selecciona la lista de celdas con URLs y un rango de celdas donde quieras colocar las imágenes;
• Especifica el tamaño de las imágenes según lo necesites en la sección Tamaño de imagen.
• 

3. Luego, haz clic en Ok; todas las imágenes se habrán extraído de las URLs, como se muestra en la captura:

Puedes aplicar el siguiente código VBA para insertar imágenes según las rutas de los archivos de imagen.

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

2. Haz clic en Insertar > Módulo y pega el siguiente código en la ventana del Módulo.

Código VBA: Insertar imágenes desde un rango de rutas 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, pulsa la tecla F5 para ejecutarlo; aparecerá un cuadro de aviso, selecciona las celdas con la ruta de archivo, como se muestra en la captura:

4. Haz clic en OK; todas las imágenes basadas en las rutas de archivo se mostrarán en la siguiente columna, como se muestra en la captura:

La función Insertar imágenes desde ruta (URL) de Kutools para Excel también puede ayudarte a mostrar imágenes relativas desde la ruta de archivo.

1. Haz clic en Kutools > Insertar > Insertar imágenes desde ruta (URL); en el cuadro de diálogo emergente, especifica el rango de rutas de archivo, el rango de salida de imágenes y el tamaño de imagen según lo necesites, como se muestra en las capturas:

2. Tras configurar las opciones, haz clic en Ok; las imágenes se insertarán en las celdas seleccionadas de inmediato, como se muestra en la captura:

Consejo: A veces, puedes notar que la imagen se superpone con el área de datos de la hoja de cálculo, como se muestra en la captura. 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 necesitas redimensionar la imagen en el encabezado o pie de página. Haz lo siguiente:

1. Haz clic en la sección de encabezado o pie de página donde está la imagen y luego haz clic en Dar formato a la imagen bajo la pestaña Diseño, como se muestra en la captura:

2. En el cuadro de diálogo Dar formato a la imagen, en la pestaña Tamaño, ajusta el tamaño de la imagen para que se adapte al cuadro de encabezado o pie de página, como se muestra en la captura:

3. Haz clic en OK y obtendrás el resultado que necesitas.

1. Abre la hoja de cálculo donde quieras insertar una imagen de fondo.

2. Haz clic en Diseño de página > Fondo, como se muestra en la captura:

3. En la ventana emergente Insertar imágenes, elige una imagen de tu ordenador, sitio web o OneDrive según lo necesites, como se muestra en la captura:

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

Con el método anterior, no puedes cambiar la transparencia de la imagen de fondo insertada, por lo que si la imagen tiene colores muy intensos, puede dificultar la lectura de los datos. En esta sección, te explico cómo insertar una imagen transparente detrás de las celdas.

1. Haz clic en Insertar > Formas y selecciona un rectángulo, como se muestra en la captura:

2. Dibuja una forma del tamaño que necesites en la hoja activa.

3. Tras dibujar la forma, aparecerá la pestaña Herramientas de dibujo en la cinta. Haz clic en Formato > Contorno de forma > Sin contorno, como se muestra en la captura:

4. Haz clic derecho en la forma y elige Dar formato a la forma en el menú contextual, como se muestra en la captura:

5. En el panel expandido Dar formato a la forma, bajo la pestaña Relleno y línea, realiza las siguientes operaciones:

• En la sección Relleno, selecciona la opción Relleno con imagen o textura;
• Haz clic en el botón Insertar desde la fuente de imagen y elige la imagen que quieras insertar;
• Luego, ajusta la transparencia de la imagen según lo necesites en la sección Transparencia.
• 

6. Ahora verás que la forma rellena con la imagen parece un fondo, como se muestra en la captura anterior.

Nota: Tras insertar este tipo de imagen de fondo, no podrás escribir texto dentro del área de la imagen.

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

1. Haz clic en Kutools > Insertar > Insertar marca de agua, como se muestra en la captura:

2. En el cuadro de diálogo emergente Insertar marca de agua, selecciona Marca de agua de imagen y haz clic en Seleccionar imagen para elegir una imagen, luego especifica la escala de la imagen y marca la opción Erosión, como se muestra en la captura:

3. Haz clic en Ok; la imagen se habrá insertado como fondo en la hoja de cálculo.

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

1. Selecciona el rango de celdas que deseas copiar e insertar como imagen.

2. Haz clic en Inicio > Copiar > Copiar como imagen, como se muestra en la captura:

3. En el cuadro de diálogo emergente Copiar imagen, selecciona Imagen en la sección Formato, como se muestra en la captura:

4. Haz clic en OK; ahora solo tienes que pulsar Ctrl + V para pegar la imagen en cualquier parte del libro.

En Excel, existe la herramienta Cámara que te permite tomar una foto de los datos seleccionados y pegarla como imagen. Cuando los datos originales cambian, la imagen copiada se actualizará dinámicamente.

Primero, debes mostrar la herramienta Cámara en la cinta y luego usarla.

1. Haz clic en el icono Personalizar barra de herramientas de acceso rápido y luego en Más comandos, como se muestra en la captura:

2. En el cuadro de diálogo Opciones de Excel, realiza las siguientes operaciones:

• Selecciona Todos los comandos en el menú desplegable Elegir comandos de;
• Luego, desplázate para seleccionar Cámara en la lista;
• Haz clic en Agregar para añadir esta herramienta a la barra de herramientas de acceso rápido;
• Por último, haz clic en OK para cerrar este cuadro de diálogo.
• 

3. La herramienta Cámara se habrá mostrado en la cinta, como se muestra en la captura:

4. Selecciona el rango de celdas que deseas convertir en imagen.

5. Haz clic en la herramienta Cámara, luego ve a la hoja de cálculo y haz clic en cualquier parte; el área de datos se insertará como imagen, como se muestra en la siguiente demostración:

Si tienes Kutools para Excel, con su función Biblioteca de AutoTexto puedes guardar los datos seleccionados en la Biblioteca de AutoTexto y luego usarlos como imagen o texto en el futuro según prefieras.

1. Selecciona el área de datos que deseas insertar como imagen.

2. Haz clic en Kutools > Navegación, como se muestra en la captura:

3. En el panel expandido Navegación, haz clic en el icono Biblioteca de AutoTexto y luego en el icono Agregar contenido seleccionado a AutoTexto, como se muestra en la captura:

4. En el cuadro de diálogo Nuevo elemento de AutoTexto, especifica un nombre para este elemento y selecciona el grupo al que deseas añadirlo. Consulta la captura:

5. Haz clic en Agregar para añadirlo al panel de AutoTexto. Si quieres insertar este rango como imagen, solo tienes que hacer clic en una celda para ubicar la imagen, buscar el elemento guardado en el panel de AutoTexto y hacer clic en Insertar como > Imagen (EMF) en la lista desplegable del elemento. El área de datos se insertará en la hoja como imagen, como se muestra en las capturas:

Normalmente, en Excel puedes crear un rango con nombre dinámico y luego usar la imagen vinculada para resolver esta tarea.

1. Primero, crea dos columnas que contengan los nombres de los productos y las imágenes correspondientes, como se muestra en la captura:

2. Luego, crea una lista desplegable para los valores de las celdas. Haz clic en una celda para mostrar la lista desplegable y luego en Datos > Validación de datos > Validación de datos, como se muestra en la captura:

3. En el cuadro de diálogo emergente Validación de datos, en la pestaña Configuración, elige Lista en el menú Permitir y selecciona las celdas para crear la lista desplegable desde el cuadro Origen, como se muestra en la captura:

4. Haz clic en OK; la lista desplegable con los valores de las celdas se habrá creado. Selecciona un elemento de la lista, como se muestra en la captura:

5. Haz clic en Fórmulas > Definir nombre, como se muestra en la captura:

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

• Escribe un nombre llamado myimage en el cuadro de texto Nombre;
• Luego, copia y pega esta fórmula: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) en el cuadro Se refiere a.

  

  Nota: En la fórmula anterior:

  • Sheet11!$A$2:$B$6: es la hoja y el rango que contienen los valores y las imágenes que deseas usar;
  • Sheet11!$E$2: es la celda de la hoja donde has creado la lista desplegable;
  • Sheet11!$A$2:$A$6: es la lista de celdas sobre la que has creado la lista desplegable;
  • El número variable2 es el número de columna que contiene las imágenes. Si tus imágenes están en la columna C, debes poner3.

7. Haz clic en OK y luego copia y pega la imagen correspondiente según el valor de la celda E2 desde el rango original a la celda F2, como se muestra en la captura:

8. Selecciona la imagen en la celda F2 y luego escribe esta fórmula =myimage (myimage es el nombre de rango que creaste en el paso6) en la barra de fórmulas, como se muestra en la captura:

9. Tras escribir la fórmula, pulsa Enter y, ahora, al elegir un elemento de la lista desplegable, su imagen correspondiente se mostrará de inmediato. Consulta la captura:

El método anterior puede resultar complicado para muchos usuarios. Aquí te presento una función práctica – Lista desplegable de imágenes de Kutools para Excel. Con esta útil herramienta, puedes crear varias listas desplegables con sus imágenes correspondientes en solo unos clics.

1. Primero, crea dos columnas que contengan los nombres de los productos y las imágenes correspondientes en tu hoja de cálculo.

2. Haz clic en Kutools > Lista desplegable > Lista desplegable de imágenes, como se muestra en la captura:

3. En el cuadro de diálogo Lista desplegable de imágenes, si ya has creado las columnas de valores e imágenes, omite el paso1. Luego, selecciona el rango de datos original, el rango de imágenes y el rango de salida, como se muestra en la captura:

4. Haz clic en Ok; las listas desplegables con imágenes se habrán creado en las celdas seleccionadas y, al seleccionar un elemento de la celda desplegable, su imagen correspondiente se mostrará de inmediato, como se muestra en la siguiente demostración:

Normalmente, puedes usar la función Guardar como para guardar todas las imágenes del libro. Haz lo siguiente:

1. Haz clic en Archivo > Guardar como; en la ventana Guardar como, especifica una carpeta para guardar los archivos exportados y elige Página web (*.htm;*.html) en el menú desplegable Tipo, como se muestra en la captura:

2. Haz clic en Guardar; ve a la carpeta específica y verás dos archivos: uno en formato HTML y otro que es una carpeta que contiene las imágenes, gráficos u otros objetos del libro. Consulta la captura:

3. Luego puedes arrastrar solo las imágenes a otra carpeta según lo necesites.

Nota: Al usar la función Guardar como, obtendrás cada imagen dos veces: una más pequeña y otra más grande, por lo que puedes guardar las imágenes de mayor resolución según lo necesites.

Para guardar todas las imágenes de un archivo de Excel, también puedes cambiar la extensión del archivo a RAR. Haz lo siguiente:

1. Cambia la extensión del archivo xlsx a rar, como se muestra en la captura:

2. Luego, descomprime el archivo y verás3 carpetas y1 archivo en la carpeta, como se muestra en la captura:

3. Haz clic para abrir la carpeta xl y luego la carpeta media; verás que todas las imágenes están almacenadas aquí sin duplicados, como se muestra en la captura:

Si tienes Kutools para Excel, con su función Exportar gráfico puedes exportar rápidamente objetos específicos, como imágenes, gráficos o formas, a formato de imagen según lo necesites.

1. Haz clic en Kutools Plus > Importar y exportar > Exportar gráfico, como se muestra en la captura:

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

• Elige la opción Imágenes en el menú desplegable Tipo;
• Especifica una carpeta para guardar las imágenes exportadas;
• Luego haz clic en el menú desplegable Formato de exportación para elegir el formato de tus imágenes.
• 

3. Por último, haz clic en Ok; todas las imágenes del libro actual se habrán guardado en la carpeta especificada, como se muestra en la captura:

Para eliminar las imágenes de la hoja de cálculo actual, el siguiente código VBA puede ayudarte. Haz lo siguiente:

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

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

3. Haz clic en Insertar > Módulo y pega la siguiente macro en la ventana del Módulo.

Código VBA: Eliminar todas las imágenes de la hoja de cálculo actual

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

4. Pulsa la tecla F5 para ejecutar este código; todas las imágenes de la hoja activa se eliminarán de inmediato.

Si necesitas eliminar imágenes solo de un rango de celdas, aquí tienes otro código sencillo que puede ayudarte.

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

2. Haz clic en Insertar > Módulo y pega la siguiente macro en la ventana del Módulo.

Código VBA: Eliminar 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 deseas eliminar las imágenes.

3. Pulsa la tecla F5 para ejecutar este código; las imágenes del rango seleccionado se eliminarán de inmediato, como se muestra en las capturas:

Si tienes Kutools para Excel, con su función Eliminar ilustraciones y objetos puedes eliminar rápidamente imágenes de una hoja, hojas seleccionadas o de todo el libro.

1. Haz clic en Kutools > Eliminar > Eliminar ilustraciones y objetos, como se muestra en la captura:

2. En el cuadro de diálogo Eliminar ilustraciones y objetos, marca Imágenes en la sección Eliminar y especifica el ámbito desde el que deseas eliminar las imágenes en la sección Buscar en, como se muestra en la captura:

3. Haz clic en Ok; todas las imágenes se eliminarán de la hoja, hojas seleccionadas o de todo el libro según lo especificado.