Como exportar todas as imagens de uma vez do Excel?

Suponha que você tenha várias imagens em sua pasta de trabalho e deseja salvá-las em uma pasta específica de uma só vez. Normalmente, você pode copiar e colar as imagens manualmente uma por uma para salvá-las, mas isso é demorado ao repetir o processo várias vezes. Aqui, vou apresentar algumas dicas para resolver essa tarefa.

Exportar todas as imagens de uma vez do Excel com a função Salvar Como

Com a função Salvar Como embutida no Excel, você pode salvar uma pasta de trabalho como Página da Web para salvar todas as imagens, incluindo gráficos, formas e outros objetos em uma pasta. Por favor, siga os passos abaixo.

1. Abra a pasta de trabalho com as imagens que deseja salvar. Clique em Arquivo > Salvar Como > Procurar.

2. Na caixa de diálogo Salvar Como, você precisa:

3. Na caixa de diálogo Microsoft Excel que aparece, clique no botão Sim.

4. Abra a pasta onde os arquivos exportados estão salvos e você verá uma pasta e um arquivo no formato HTML listados dentro. Todas as imagens na pasta de trabalho, incluindo gráficos, formas ou objetos, estão salvas nesta pasta.

5. Você pode manter as imagens que precisa na pasta e excluir outras que não são necessárias.

Exporte facilmente todas as imagens de uma vez do Excel com uma ferramenta incrível

O método acima extrairá todos os objetos da pasta de trabalho, talvez alguns deles você não precise. Se você tiver o Kutools para Excel instalado no Excel, o recurso Exportar Gráfico pode ajudá-lo a salvar apenas as imagens que você precisa.

1. Clique em Kutools Plus > Importar & Exportar > Exportar Gráficos:

2. Na caixa de diálogo Exportar Gráficos, configure conforme segue:

2.1) Escolha Imagens na lista suspensa Tipos;

Dicas: Por padrão, todos os gráficos, incluindo gráficos, imagens e formas na pasta de trabalho atual, estão listados.

2.2) No Caminho de Salvamento seção, clique no botão para selecionar uma pasta para salvar suas imagens exportadas;

2.3) Na lista suspensa Formato de Exportação, escolha o tipo de imagem que deseja exportar;

2.4) Clique em OK.

3. Em seguida, uma caixa de diálogo aparecerá informando quantas imagens foram exportadas com sucesso, clique no botão OK.

Agora você pode ir para a pasta de destino e verificar as imagens exportadas.

Por favor, clique em Exportar Gráficos para saber mais sobre este recurso.

Exportar imagens e renomeá-las com os valores das células adjacentes

Como mostrado na captura de tela abaixo, há duas colunas, uma contém uma lista de nomes de frutas e a outra contém as imagens correspondentes das frutas. Para exportar essas imagens e nomeá-las automaticamente com os nomes das frutas correspondentes, você pode tentar o código VBA desta seção.

1. Na planilha onde você deseja exportar as imagens, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. E então copie o seguinte VBA para a janela Módulo.

Código VBA: Exportar imagens em uma coluna e nomeá-las automaticamente

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. Pressione a tecla F5 para executar o código. Na janela que se abre, selecione uma pasta para salvar as imagens e depois clique em OK.

Então, todas as imagens em uma coluna específica são exportadas e nomeadas automaticamente com os valores das células adjacentes conforme especificado.

Artigo relacionado:

Como exportar gráficos para imagens no Excel?