3 metode za paketni izvoz vseh grafikonov v Excelovem delovnem zvezku v mapo Windows

Imate Excelov delovni zvezek, ki vsebuje veliko grafikonov, razporejenih na vseh njegovih Excelovih delovnih listih. Če želite zdaj paketno izvoziti vse karte v mapo Windows, lahko uporabite katerega koli od treh načinov, predstavljenih v tem članku.

Ko ustvarite več grafikonov za podatke v Excelovem delovnem zvezku, jih boste morda želeli izvoziti v lokalno mapo kot slikovne datoteke JPEG. V tem primeru lahko seveda uporabite naslednji način 1 za ročno shranjevanje grafikonov enega za drugim. Vendar bo dolgočasno v primeru na stotine delovnih listov in grafikonov v Excelovi datoteki. Torej, tukaj vas bomo naučili druga dva pristopa, ki vam omogočata, da ga dobite v velikem obsegu.

1. način: Kopirajte grafikone v MS Word /PowerPoint

1. Za začetek izberite grafikon v Excelovi datoteki.
2. Nato ga kliknite z desno miškino tipko in v kontekstnem meniju izberite možnost »Kopiraj«.
3. Nato ustvarite nov Wordov dokument.
4. Kasneje kliknite gumb »Prilepi« in izberite možnost »Prilepi posebno«.
5. V pojavnem pogovornem oknu na seznamu »Kot« izberite »Slika (JPEG)« in kliknite »V redu«.
6. Po tem na višini vstavljene slike v dokumentu.
7. Nato ga kliknite z desno miškino tipko in izberite možnost »Shrani kot sliko«.
8. V oknu »Shranjevanje datoteke« vnesite ime in izberite ciljno mapo sistema Windows.
9. Na koncu kliknite »Shrani«.
10. Zdaj lahko na ta način izvozite druge grafikone iz Excelove datoteke.

2. način: Shranite delovni zvezek kot spletno stran

1. Na začetku v odprtem Excelovem delovnem zvezku pojdite na »Datoteka« in kliknite »Shrani kot«.
2. Nato v pojavnem oknu »Shrani kot« izberite »Spletna stran« v »Shrani kot vrsto«.
3. Kasneje izberite ciljno mapo Windows in kliknite »Shrani«.
4. Po tem poiščite mapo »XXX_files«, v kateri si lahko ogledate izvožene slike grafikonov.

3. način: paketni izvoz prek programa Excel VBA

1. Za začetek zaženite urejevalnik Excel VBA v skladu z “Kako zagnati kodo VBA v Excelu".
2. Nato v modul ali projekt vstavite naslednjo kodo.

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. Nato pritisnite tipko “F5”, da zaženete ta makro zdaj.
4. Nato v pojavnem pogovornem oknu izberite mapo Windows.
5. Takoj se bo prikazala mapa Windows, ki vsebuje izvožene grafikone.

Primerjava

Popravite poškodovane Excelove datoteke

Datoteke Excel so ranljive, podobno kot druge pogoste datoteke, kot so Wordovi dokumenti. Zato je priporočljivo, da ostane močan xls popravilo pripomoček v bližini, kot npr DataNumen Excel Repair. Prišel bo prav, ko bo datoteka Excel poškodovana.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com