3 metode za skupni izvoz svih grafikona u Excel radnoj knjizi u Windows mapu

Imate radnu knjigu programa Excel koja sadrži mnogo dijagrama raspoređenih u svim radnim listovima programa Excel. Sada, ako želite grupno izvesti sve grafikone u Windows mapu, možete koristiti bilo koju od 3 metode predstavljene u ovom članku.

Nakon što izradite više grafikona za podatke u radnoj knjizi programa Excel, možda ćete poželjeti izvesti i te grafikone u lokalnu mapu kao JPEG slikovne datoteke. U ovom slučaju, naravno, možete koristiti sljedeću metodu 1 za ručno spremanje grafikona jedan po jedan. Ipak, bit će zamorno u slučaju stotina radnih listova i grafikona u Excel datoteci. Dakle, ovdje ćemo vas naučiti druga 2 pristupa, koji vam mogu omogućiti da to dobijete u rasutom stanju.

Metoda 1: Kopiranje grafikona u MS Word/PowerPoint

1. Za početak odaberite grafikon u Excel datoteci.
2. Zatim kliknite desnom tipkom miša na njega i odaberite opciju "Kopiraj" iz kontekstnog izbornika.
3. Zatim izradite novi Word dokument.
4. Kasnije kliknite gumb "Zalijepi" i odaberite opciju "Posebno zalijepi".
5. U skočnom dijaloškom okviru odaberite "Slika (JPEG)" s popisa "Kao" i kliknite "U redu".
6. Nakon toga stavite na umetnutu sliku u dokument.
7. Zatim kliknite desnom tipkom miša i odaberite opciju "Spremi kao sliku".
8. U prozoru "Spremanje datoteke" unesite naziv i odaberite ciljnu mapu sustava Windows.
9. Na kraju kliknite "Spremi".
10. Sada možete koristiti ovaj način za izvoz drugih grafikona iz Excel datoteke.

Metoda 2: Spremite radnu knjigu kao web stranicu

1. Na početku, u otvorenoj Excel radnoj knjizi idite na “File” i kliknite “Save As”.
2. Zatim, u skočnom prozoru "Spremi kao", odaberite "Web stranica" u "Spremi kao vrstu".
3. Kasnije odaberite odredišnu Windows mapu i kliknite "Spremi".
4. Nakon toga, potražite mapu “XXX_files”, u kojoj možete vidjeti izvezene slike grafikona.

Metoda 3: Skupni izvoz putem Excel VBA

1. Za početak pokrenite Excel VBA editor prema “Kako pokrenuti VBA kod u vašem Excelu".
2. Zatim stavite sljedeći kod u modul ili projekt.

Sub ExportAllCharts()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim strWindowsFolder As String
    Dim objSheet As Excel.Worksheet
    Dim objChartObject As Excel.ChartObject
    Dim objChart As Excel.Chart

    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       For i = ThisWorkbook.Worksheets.Count To 1 Step -1
           Set objSheet = ThisWorkbook.Worksheets(i)

           If objSheet.ChartObjects.Count > 0 Then
              For Each objChartObject In objSheet.ChartObjects
                  Set objChart = objChartObject.Chart
                  objChart.Export strWindowsFolder & objChart.Name & ".jpg"
              Next
          End If
       Next

       'Open the windows folder
       Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
   End If
End Sub

3. Zatim pritisnite tipku “F5” da sada pokrenete ovu makronaredbu.
4. Zatim odaberite Windows mapu u skočnom dijaloškom okviru.
5. Odmah će se prikazati mapa Windows koja sadrži izvezene grafikone.

usporedba

Popravite oštećene Excel datoteke

Excel datoteke su ranjive slično drugim uobičajenim datotekama, kao što su Word dokumenti. Stoga se preporuča držati potent xls popravak korisnost u blizini, kao što je DataNumen Excel Repair. Dobro će doći kada se vaša Excel datoteka ošteti.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećeni sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com