Cara Batch Salin Semua Carta dari Buku Kerja Excel ke E-mel Outlook

Sekiranya anda ingin menyalin semua carta dengan cepat dari setiap lembaran kerja dalam buku kerja Excel ke e-mel Outlook, anda boleh menggunakan kaedah yang dinyatakan dalam artikel ini. Ia dapat membantu anda mendapatkannya sekali gus.

Mungkin anda telah membuat timbunan carta untuk statistik dalam buku kerja Excel. Dan kemudian, anda ingin memanfaatkan sepenuhnya carta ini untuk membuat mel Outlook baru. Sudah tentu, anda boleh memilih untuk menyalinnya ke e-mel satu persatu secara manual. Namun, ia cukup menyusahkan. Oleh itu, berikut ini, kami akan berkongsi cara yang lebih berguna dengan anda. Ini dapat membantu anda menyedari bahawa hanya dengan satu klik. Sekarang baca untuk mendapatkannya secara terperinci.

Batch Copy All Charts dari Excel Workbook ke Outlook Email

1. Sebagai permulaan, buka buku kerja Excel tertentu.
2. Kemudian, tekan "Alt + F11" untuk mengakses editor VBA Excel.
3. Dalam tetingkap baharu, tambahkan “MS Outlook Object Library” dan “MS Word Object Library”. Langkah-langkahnya adalah serupa dengan apa yang diperkenalkan dalam artikel – “Cara Menambah Rujukan Perpustakaan Objek dalam VBA".
4. Selepas itu, masukkan kod VBA berikut ke dalam projek "ThisWorkbook".

Sub CopyAllChartsToOutlookEmail()
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objSheet As Excel.Worksheet
    Dim objChart As Excel.ChartObject
 
    'Get Outlook Application
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
 'Create an Outlook Email
 Set objMail = objOutlookApp.CreateItem(olMailItem)
 objMail.Display
 Set objMailDocument = objMail.GetInspector.WordEditor
 
 'Copy All Charts from Each Sheet to the New Email
 For Each objSheet In ActiveWorkbook.Worksheets
 For Each objChart In objSheet.ChartObjects
 objChart.Copy
 objMailDocument.Range(0, 0).Paste
 Next
 Next
End Sub

5. Setelah itu, ketuk butang kunci "F5" atau klik ikon "Jalankan" di bar alat untuk menjalankan makro.
6. Selanjutnya, e-mel Outlook akan dipaparkan dengan peringatan pop timbul, ditunjukkan seperti gambar berikut.
7. Apabila anda memilih dan mengklik butang "Benarkan", semua carta dalam buku kerja Excel sumber akan disalin ke dalam surat ini sekaligus.

Melindungi Outlook dari Semua Risiko

Seperti yang kita semua ketahui, banyak ancaman menyelubungi data kami, tentu saja termasuk fail data Outlook kami. Juga, tidak ada yang enggan menderita korupsi Outlook. Oleh itu, setiap pengguna Outlook harus membuat tindakan untuk melindungi Outlook mereka dari segala jenis risiko yang berpotensi. Untuk lebih spesifik, pengguna harus membuat cadangan data Outlook secara berkala, yang dapat memudahkan Pemulihan Outlook banyak. Lebih-lebih lagi, lebih baik anda menggunakan alat pembaikan PST yang kuat, seperti DataNumen Outlook Repair.

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