Qanday qilib barcha diagrammalarni Excel ish kitobidan Outlook elektron pochtasiga ommaviy nusxalash mumkin

Agar Excel ish kitobidagi har bir varaqdan barcha diagrammalarni tezda Outlook elektron pochtasiga ko'chirmoqchi bo'lsangiz, ushbu maqolada ko'rsatilgan usuldan foydalanishingiz mumkin. Bu sizga bir vaqtning o'zida yordam berishi mumkin.

Ehtimol, siz Excel ish kitobida statistik ma'lumotlar uchun jadvallar to'plamini yaratgandirsiz. Keyinchalik, yangi Outlook pochtasini yaratish uchun ushbu jadvallardan to'liq foydalanishni xohlaysiz. Albatta, siz ularni elektron pochtaga birma-bir qo'lda nusxalashni tanlashingiz mumkin. Shunga qaramay, bu juda muammoli. Shuning uchun, quyida biz siz bilan yanada qulayroq usulni baham ko'ramiz. Buni bir marta bosish orqali tushunishingizga yordam beradi. Endi batafsil ma'lumot olish uchun o'qing.

Barcha diagrammalarni Excel ish kitobidan Outlook elektron pochtasiga ommaviy nusxalash

1. Boshlash uchun, ma'lum bir Excel ish daftarini oching.
2. Keyin Excel VBA muharririga kirish uchun "Alt + F11" tugmasini bosing.
3. Yangi oynada “MS Outlook obyekt kutubxonasi” va “MS Word obyekt kutubxonasi” ni qo‘shing. Qadamlar maqolada keltirilganlarga o‘xshash – “VBA da obyekt kutubxonasi havolasini qanday qo'shish mumkin".
4. Shundan so'ng, quyidagi VBA kodini "ThisWorkbook" loyihasiga qo'ying.

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. Shundan so'ng, so'lni ishga tushirish uchun "F5" tugmachasini bosing yoki asboblar panelidagi "Ishga tushirish" belgisini bosing.
6. Keyinchalik, Outlook elektron pochta xabari quyidagi rasmda ko'rsatilgan qalqib chiquvchi ogohlantirish bilan ko'rsatiladi.
7. “Ruxsat berish” tugmachasini tanlaganingizda va bosganingizda, manba Excel ish kitobidagi barcha diagrammalar bir vaqtning o'zida ushbu pochtaga ko'chiriladi.

Outlookni barcha xavflardan himoya qiling

Hammamizga ma'lumki, bizning ma'lumotlarimiz, jumladan, Outlook ma'lumotlar fayllari atrofida juda ko'p tahdidlar mavjud. Bundan tashqari, hech kim Outlook korruptsiyasidan azob chekishni istamaydi. Shunday qilib, har bir Outlook foydalanuvchisi o'z Outlook-ni barcha turdagi potentsial xavflardan himoya qilish uchun harakat qilishi kerak. Aniqroq qilib aytadigan bo'lsak, foydalanuvchilar muntazam ravishda Outlook ma'lumotlarini zaxiralashlari kerak, bu esa osonlashtirishi mumkin Outlookni tiklash ko'p. Bundan tashqari, siz kuchli PST tuzatish vositasini qo'lga kiritganingiz ma'qul DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan sql va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com