Anda mempunyai buku kerja Excel yang mengandungi banyak carta yang tersebar di semua lembaran kerja Excelnya. Sekarang, jika anda ingin mengeksport secara berkala ke dalam folder Windows, anda boleh menggunakan salah satu daripada 3 kaedah yang diperkenalkan dalam artikel ini.
Setelah membuat banyak carta untuk data dalam buku kerja Excel, anda mungkin ingin mengeksport carta ini ke folder tempatan sebagai fail gambar JPEG juga. Dalam kes ini, tentu saja, anda boleh menggunakan Kaedah 1 berikut untuk menyimpan carta satu persatu secara manual. Namun, akan membosankan sekiranya terdapat ratusan lembaran kerja dan carta dalam fail Excel. Jadi, di sini kami akan mengajarkan kepada anda 2 pendekatan lain, yang membolehkan anda mendapatkannya secara besar-besaran.
Kaedah 1: Salin Carta ke MS Word /PowerPoint
- Sebagai permulaan, pilih carta dalam fail Excel.
- Kemudian, klik kanan padanya dan pilih "Salin" pilihan dari menu konteks.
- Seterusnya, buat dokumen Word baru.
- Kemudian, klik butang "Tampal" dan pilih pilihan "Tampal Istimewa".
- Dalam kotak dialog pop timbul, pilih "Gambar (JPEG)" dari senarai "As" dan klik "OK".
- Selepas itu, pasangkan gambar yang disisipkan dalam dokumen.
- Kemudian, klik kanan di atasnya dan pilih pilihan "Simpan sebagai Gambar".
- Dalam tetingkap “Simpan Fail”, masukkan nama dan pilih folder Windows sasaran.
- Terakhir, klik "Simpan".
- Sekarang, anda boleh menggunakan cara ini untuk mengeksport carta lain dari fail Excel.
Kaedah 2: Simpan Buku Kerja sebagai Halaman Web
- Pada awalnya, dalam buku kerja Excel yang dibuka, pergi ke "Fail" dan klik "Simpan Sebagai".
- Kemudian, di tetingkap "Simpan Sebagai" pop timbul, pilih "Halaman Web" di "Simpan sebagai jenis".
- Kemudian, pilih folder Windows tujuan dan klik "Simpan".
- Selepas itu, semak ke folder "XXX_files", di mana anda dapat melihat gambar carta yang dieksport.
Kaedah 3: Eksport Kumpulan melalui Excel VBA
- Sebagai permulaan, lancarkan editor Excel VBA mengikut “Cara Menjalankan Kod VBA di Excel Anda".
- Seterusnya, masukkan kod berikut ke dalam modul atau projek.
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
- Kemudian, tekan kekunci "F5" untuk menjalankan makro ini sekarang.
- Seterusnya, pilih folder Windows dalam kotak dialog pop timbul.
- Sekali gus, folder Windows akan dipaparkan, yang mengandungi carta yang dieksport.
perbandingan
| kelebihan | Kekurangan | |
| Kaedah 1 | Mudah dikendalikan | Sangat membosankan jika terdapat terlalu banyak lembaran kerja dan carta |
| Kaedah 2 | Mudah dikendalikan | Akan menyimpan objek lain yang tidak berguna dalam buku kerja Excel ini |
| Kaedah 3 | Sangat cepat dan senang | Pengguna harus berhati-hati dengan makro jahat luaran |
Membaiki Fail Excel yang rosak
Fail Excel rentan seperti fail biasa yang lain, seperti dokumen Word. Oleh itu, disyorkan untuk menjaga kekuatan xls baiki utiliti di sekitarnya, seperti DataNumen Excel Repair. Ia akan sangat berguna apabila fail Excel anda rosak.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com