Cara Menyalin Batch Semua Grafik dari Buku Kerja Excel ke Email Outlook

Jika Anda ingin cepat menyalin semua bagan dari setiap lembar kerja di buku kerja Excel ke email Outlook, Anda dapat menggunakan metode yang terekspos dalam artikel ini. Ini dapat membantu Anda mendapatkannya sekaligus.

Mungkin Anda telah membuat tumpukan grafik untuk statistik di buku kerja Excel. Dan nanti, Anda ingin memanfaatkan sepenuhnya bagan ini untuk membuat email Outlook baru. Tentu saja, Anda dapat memilih untuk menyalinnya ke email satu per satu secara manual. Namun, ini cukup merepotkan. Oleh karena itu, berikut ini, kami akan membagikan cara yang lebih praktis dengan Anda. Ini dapat membantu Anda menyadarinya hanya melalui satu klik. Sekarang baca terus untuk mendapatkan detailnya.

Salin Batch Semua Bagan dari Buku Kerja Excel ke Email Outlook

1. Sebagai langkah awal, buka buku kerja Excel yang bersangkutan.
2. Kemudian, tekan "Alt + F11" untuk mengakses editor Excel VBA.
3. Di jendela baru, tambahkan “MS Outlook Object Library” dan “MS Word Object Library”. Langkah-langkahnya serupa dengan yang dijelaskan dalam artikel – “Cara Menambahkan Referensi Pustaka Objek di VBA".
4. Setelah itu, masukkan kode VBA berikut ke dalam proyek "Buku Kerja Ini".

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, tekan tombol "F5" atau klik ikon "Run" di toolbar untuk menjalankan makro.
6. Selanjutnya, email Outlook akan ditampilkan dengan peringatan popup, seperti gambar berikut.
7. Saat Anda memilih dan mengklik tombol "Izinkan", semua grafik di buku kerja Excel sumber akan disalin ke email ini sekaligus.

Lindungi Outlook dari Semua Risiko

Seperti yang kita semua tahu, banyak ancaman mengelilingi data kita, tentu saja termasuk file data Outlook kita. Selain itu, tidak ada yang enggan menderita korupsi Outlook. Karenanya, setiap pengguna Outlook harus melakukan tindakan untuk melindungi Outlook mereka dari semua jenis risiko potensial. Untuk lebih spesifik, pengguna harus mencadangkan data Outlook secara teratur, yang dapat memudahkan Pemulihan Outlook banyak. Selain itu, Anda sebaiknya mendapatkan alat perbaikan PST yang ampuh, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql yang korup dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com