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.ObjChart As Excel.ChartObhel. rakendus") Set objWindowsFolder = objShell.BrowseForFolder(0, "Valige Windowsi kaust:", 0, "") Kui ei ole objWindowsFolder pole midagi, siis strWindowsFolder = objWindowsFolder.self.Path & "\" For i = ThisWorkbook.Worksheets.Count to 1 Step -1 Määra objSheet = ThisWorkbook.Worksheets(i) If objSheet.ChartObjects.Count > 0 Siis iga objChartObject In objSheet.ChartObjects jaoks Määra objChart = objChartObject.Chart = objChartObject.Chart ObjChartObject.Chart ObjChartObject.Chart ObjChartObject.Chart ObjChart.jpgme &jCFt.jpg 'Avage windowsi kaust 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