¿Cómo exportar todas las imágenes a la vez desde Excel?

Supongamos que tienes muchas imágenes en tu libro de trabajo y deseas guardarlas en una carpeta específica de una sola vez. Normalmente, puedes copiar y pegar las imágenes manualmente una por una para guardarlas, pero es muy lento repetir este proceso continuamente. Aquí te presento algunos consejos para resolver esta tarea.

Exportar todas las imágenes a la vez desde Excel con la función Guardar como

Con la función Guardar como incorporada en Excel, puedes guardar un libro de trabajo como Página Web para almacenar todas las imágenes, incluidos gráficos, formas y otros objetos, en una carpeta. Por favor, sigue estos pasos.

1. Abre el libro de trabajo con las imágenes que deseas guardar. Haz clic en Archivo > Guardar como > Examinar.

2. En el cuadro de diálogo Guardar como, necesitas:

3. En el cuadro de diálogo Microsoft Excel que aparece, haz clic en el botón Sí.

4. Abre la carpeta donde se guardaron los archivos exportados y verás una carpeta y un archivo en formato HTML listados dentro. Todas las imágenes del libro de trabajo, incluidos gráficos, formas u objetos, están guardadas en esta carpeta.

5. Puedes conservar las imágenes que necesites en la carpeta y eliminar las demás que no necesites.

Exporta fácilmente todas las imágenes a la vez desde Excel con una herramienta increíble

El método anterior extraerá todos los objetos del libro de trabajo, tal vez algunos de ellos no los necesites. Si tienes Kutools para Excel instalado en Excel, su función Exportar Gráficos puede ayudarte a guardar solo las imágenes que necesitas.

1. Haz clic en Kutools Plus > Importar y Exportar > Exportar Gráficos:

2. En el cuadro de diálogo Exportar Gráficos, configura lo siguiente:

2.1) Selecciona Imágenes desde la lista desplegable Tipos;

Consejo: Por defecto, todos los gráficos, incluidos gráficos, imágenes y formas en el libro de trabajo actual, están listados.

2.2) En la Carpeta de destino sección, haz clic en el botón para seleccionar una carpeta donde guardar tus imágenes exportadas;

2.3) En la lista desplegable Formato de exportación, selecciona el tipo de imagen al que deseas exportar;

2.4) Haz clic en Aceptar.

3. Luego aparecerá un cuadro de diálogo indicándote cuántas imágenes se han exportado con éxito, haz clic en el botón Aceptar.

Ahora puedes ir a la carpeta de destino y verificar las imágenes exportadas.

Haz clic en Exportar Gráficos para obtener más información sobre esta función.

Exportar imágenes y renombrarlas con los valores de las celdas adyacentes

Como se muestra en la captura de pantalla a continuación, hay dos columnas, una contiene una lista de nombres de frutas y la otra contiene las imágenes correspondientes de las frutas. Para exportar estas imágenes y nombrarlas automáticamente con los nombres de las frutas correspondientes, puedes probar el código VBA de esta sección.

1. En la hoja de cálculo donde deseas exportar las imágenes, presiona las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. En la ventana Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia el siguiente código VBA en la ventana Módulo.

Código VBA: Exportar imágenes en una columna y nombrarlas automáticamente

Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
    Dim xStrPath As String
    Dim xStrImgName As String
    Dim xImg As Shape
    Dim xObjChar As ChartObject
    Dim xFD As FileDialog
    Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
    xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
    If xFD.Show = -1 Then
       xStrPath = xFD.SelectedItems.Item(1) & "\"
    Else
        Exit Sub
    End If
    
    On Error Resume Next
    For Each xImg In ActiveSheet.Shapes
        If xImg.TopLeftCell.Column = 2 Then
        xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
        If xStrImgName <> "" Then
            xImg.Select
            
            Selection.Copy
            Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
            With xObjChar
                .Border.LineStyle = xlLineStyleNone
                .Activate
                ActiveChart.Paste
                .Chart.Export xStrPath & xStrImgName & ".png"
                .Delete
            End With
        End If
        End If
    Next
End Sub

Notas:

3. Presiona la tecla F5 para ejecutar el código. En la ventana que se abre, selecciona una carpeta para guardar las imágenes y luego haz clic en Aceptar.

Luego, todas las imágenes en una columna específica se exportan y se nombran automáticamente con los valores de las celdas adyacentes según lo especificado.

Artículo relacionado:

¿Cómo exportar gráficos a imágenes en Excel?