Cum se exportă toate imaginile simultan din Excel?

Presupunând că aveți o mulțime de imagini în registrul de lucru și doriți să le salvați într-un anumit folder la un moment dat, de obicei, puteți copia și lipi imaginile una câte una manual pentru salvare, dar este nevoie de timp pentru a le copia și lipi. în mod repetat așa. Aici, vă voi prezenta câteva sfaturi pentru a rezolva această treabă.

Exportați toate imaginile simultan din Excel cu funcția Salvare ca

Cu Excel încorporat Salvare ca funcția, puteți salva un registru de lucru ca Pagină web pentru a salva toate imaginile, inclusiv diagrame, forme și alte obiecte într-un dosar. Vă rugăm să faceți după cum urmează.

1. Deschideți registrul de lucru cu imaginile pe care doriți să le salvați. Clic Fișier > Salvare ca > Naviga.

2. În Salvare ca casetă de dialog, trebuie să:

3. În fereastra pop-up Microsoft Excel , faceți clic pe Da butonul.

4. Deschideți folderul în care sunt salvate fișierele exportate și puteți vedea un folder și un fișier în format HTML listate în interior. Toate imaginile din registrul de lucru, inclusiv diagrame, forme sau obiecte, sunt salvate în acest folder.

5. Puteți păstra imaginile de care aveți nevoie în dosar și puteți șterge altele de care nu aveți nevoie

Exportați cu ușurință toate imaginile dintr-o dată din Excel Cu un instrument uimitor

Metoda de mai sus va extrage toate obiectele din registrul de lucru, poate, unele dintre ele nu aveți nevoie. Daca ai Kutools pentru Excel instalat în Excel, este Exportați grafică caracteristica vă poate ajuta să salvați doar imaginile de care aveți nevoie.

1. clic Kutools Plus > Import Export > Exportați grafică:

2. În Exportați grafică casetă de dialog, vă rugăm să configurați după cum urmează:

2.1) Alegeți poze de la Tipuri de lista verticală;

Sfat: În mod implicit, toate elementele grafice, inclusiv diagramele, imaginile și formele din registrul de lucru curent sunt listate.

2.2) În Salvați directorul secțiune, faceți clic pe butonul pentru a selecta un folder pentru a salva imaginile exportate;

2.3) În Exportați formatul listă derulantă, alegeți tipul de imagine pe care doriți să o exportați;

2.4) Faceți clic pe OK.

3. Apoi apare o casetă de dialog pentru a vă spune câte imagini au fost exportate cu succes, faceți clic pe OK butonul.

Acum puteți merge în folderul de destinație și puteți verifica imaginile exportate.

Vă rugăm să faceţi clic pe Exportați grafică pentru a afla mai multe despre această caracteristică.

Exportați imagini și redenumiți-le cu valorile celulelor adiacente

După cum se arată în captura de ecran de mai jos, există două coloane, una conține o listă de nume de fructe, iar cealaltă conține imaginile corespunzătoare ale fructelor. Pentru a exporta aceste imagini și a le denumi automat cu numele fructelor corespunzătoare, puteți încerca codul VBA din această secțiune.

1. În foaia de lucru în care doriți să exportați imaginile, apăsați tasta Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Modul. Și apoi copiați următorul VBA în fereastra Modulului.

Cod VBA: Exportați imagini într-o coloană și denumiți-le automat

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. apasă pe F5 tasta pentru a rula codul. În fereastra de deschidere, selectați un folder pentru a salva imaginile și apoi faceți clic OK.

Apoi, toate imaginile dintr-o coloană specificată sunt exportate și denumite automat cu valorile celulelor adiacente, așa cum ați specificat.

Articol asociat:

Cum se exportă diagrame în grafice în Excel?