Teil on Exceli töövihik, mis sisaldab palju diagramme, mis on laotatud kõigil Exceli töölehtedel. Kui soovite nüüd eksportida kõik diagrammid Windowsi kausta, saate kasutada mõnda kolmest selles artiklis tutvustatud meetodist.
Pärast Exceli töövihiku andmete jaoks mitme diagrammi loomist võite soovida eksportida need diagrammid ka kohalikku kausta JPEG-pildifailidena. Sel juhul saate diagrammide ükshaaval käsitsi salvestamiseks kasutada järgmist 1. meetodit. Siiski on see tüütu, kui Exceli failis on sadu töölehti ja diagramme. Niisiis, siin õpetame teile kahte teist lähenemisviisi, mis võimaldavad teil seda hulgi hankida.
1. meetod: kopeerige diagrammid MS Wordi/PowerPoint
- Sest nagutart, valige Exceli failist diagramm.
- Seejärel paremklõpsake sellel ja valige kontekstimenüüst "Kopeeri".

- Järgmisena looge uus Wordi dokument.
- Hiljem klõpsake nuppu "Kleebi" ja valige "Kleebi eriliselt".
- Hüpikdialoogiboksis valige "As" loendist "Pilt (JPEG)" ja klõpsake "OK".
- Pärast seda asetage dokumenti sisestatud pilt.
- Seejärel paremklõpsake sellel ja valige "Salvesta pildina".
- Sisestage aknas "Faili salvestamine" nimi ja valige tarhankige Windowsi kaust.
- Lõpuks klõpsake nuppu "Salvesta".
- Nüüd saate seda meetodit kasutada muude diagrammide eksportimiseks Exceli failist.
2. meetod: salvestage töövihik veebilehena
- Alguses minge avatud Exceli töövihikus "Fail" ja klõpsake "Salvesta nimega".
- Seejärel valige hüpikaknas "Salvesta nimega" jaotises "Salvesta kui tüüp" "Veebileht".
- Hiljem valige Windowsi sihtkaust ja klõpsake nuppu "Salvesta".
- Pärast seda sirvige kausta "XXX_files", kus näete diagrammide eksporditud pilte.
3. meetod: partii eksportimine Excel VBA kaudu
- Alustuseks käivitage Exceli VBA redaktor vastavalt "Kuidas Excelis VBA koodi käivitada".
- Järgmisena sisestage järgmine kood moodulisse või projekti.
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
- Seejärel vajutage selle makro käivitamiseks klahvi F5.
- Järgmisena valige hüpikaknast Windowsi kaust.
- Kohe kuvatakse Windowsi kaust, mis sisaldab eksporditud diagramme.
võrdlus
| Eelised | Puudused | |
| Meetod 1 | Lihtne kasutada | Väga tüütu, kui töölehti ja diagramme on liiga palju |
| Meetod 2 | Lihtne kasutada | Salvestab selle Exceli töövihiku teised kasutud objektid |
| Meetod 3 | Väga kiire ja mugav | Kasutajad peavad väliste pahatahtlike makrode eest hoiduma |
Parandage rikutud Exceli failid
Exceli failid on haavatavad sarnaselt muudele levinud failidele, näiteks Wordi dokumentidele. Seetõttu on soovitatav hoida potentsi xls remont utiliit läheduses, nt DataNumen Excel Repair. See on kasulik, kui teie Exceli fail on kahjustatud.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom







