Come esportare tutte le immagini contemporaneamente da Excel?

Supponendo che tu abbia molte immagini nella tua cartella di lavoro e desideri salvarle in una cartella specifica alla volta, di solito puoi copiare e incollare le immagini una per una manualmente per il salvataggio, ma copiarle e incollarle richiede molto tempo ripetutamente così. Qui, ti presenterò alcuni suggerimenti per risolvere questo lavoro.

Esporta tutte le immagini contemporaneamente da Excel con la funzione Salva con nome

Con Excel integrato Salva con nome funzione, è possibile salvare una cartella di lavoro come Pagina Web per salvare tutte le immagini inclusi grafici, forme e altri oggetti in una cartella. Si prega di fare come segue.

1. Apri la cartella di lavoro con le immagini che desideri salvare. Clic Compila il > Salva con nome > Navigare.

2. Nel Salva con nome finestra di dialogo, è necessario:

3. Nel spuntare Microsoft Excel finestra di dialogo, fare clic su Si pulsante.

4. Apri la cartella in cui sono salvati i file esportati e puoi vedere una cartella e un file in formato HTML elencati all'interno. Tutte le immagini nella cartella di lavoro inclusi grafici, forme o oggetti vengono salvate in questa cartella.

5. Puoi conservare le immagini che ti servono nella cartella ed eliminarne altre che non ti servono

Esporta facilmente tutte le immagini in una volta da Excel con uno strumento straordinario

Il metodo precedente estrarrà tutti gli oggetti dalla cartella di lavoro, forse alcuni di essi non necessari. Se hai Kutools for Excel installato in Excel, il suo Esporta grafica funzione può aiutarti a salvare solo le immagini di cui hai bisogno.

1. Clic Kutools Plus > Importa ed esporta > Esporta grafica:

2. Nel Esporta grafica finestra di dialogo, configurare come segue:

2.1) Scegli Immagini dal Tipi menu `A tendina;

Suggerimenti: Per impostazione predefinita, vengono elencati tutti gli elementi grafici inclusi grafici, immagini e forme nella cartella di lavoro corrente.

2.2) nel Salva directory sezione, fare clic su pulsante per selezionare una cartella in cui salvare le immagini esportate;

2.3) nel Formato di esportazione elenco a discesa, scegli il tipo di immagine che desideri esportare;

2.4) Fare clic OK.

3. Quindi viene visualizzata una finestra di dialogo per dirti quante immagini sono state esportate con successo, fai clic su OK pulsante.

Ora puoi andare nella cartella di destinazione e controllare le immagini esportate.

Si prega di fare clic Esporta grafica per saperne di più su questa funzione.

Esporta le immagini e rinominale con i valori delle celle adiacenti

Come mostrato nello screenshot qui sotto, ci sono due colonne, una contiene un elenco di nomi di frutta e l'altra contiene le immagini corrispondenti dei frutti. Per esportare queste immagini e denominarle automaticamente con i nomi dei frutti corrispondenti, puoi provare il codice VBA in questa sezione.

1. Nel foglio di lavoro in cui si desidera esportare le immagini, premere il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo. E quindi copia il seguente VBA nella finestra del modulo.

Codice VBA: esporta le immagini in una colonna e denominale 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

Note:

3. premi il F5 chiave per eseguire il codice. Nella finestra di apertura, seleziona una cartella in cui salvare le immagini e fai clic OK.

Quindi tutte le immagini in una colonna specificata vengono esportate e denominate automaticamente con i valori delle celle adiacenti come specificato.

Articolo correlato:

Come esportare grafici in grafici in Excel?