Bütün diaqramları Excel iş kitabından Outlook e-poçtuna toplu şəkildə necə köçürmək olar

Excel iş kitabındakı hər bir iş vərəqindən bütün diaqramları tez bir zamanda Outlook e-poçtuna köçürmək istəyirsinizsə, bu məqalədə göstərilən üsuldan istifadə edə bilərsiniz. Bir anda onu əldə etməyə kömək edə bilər.

Ola bilsin ki, siz Excel iş kitabında statistika üçün qrafiklər yığını yaratmısınız. Və sonra, siz yeni Outlook poçtu yaratmaq üçün bu diaqramlardan tam istifadə etmək istərdiniz. Əlbəttə ki, onları əl ilə bir-bir e-poçta köçürməyi seçə bilərsiniz. Bununla belə, kifayət qədər problemlidir. Buna görə də, aşağıda sizinlə daha asan bir yol paylaşacağıq. Bunu sadəcə bir klik vasitəsilə dərk etməyə kömək edə bilər. İndi ətraflı öyrənmək üçün oxuyun.

Bütün Diaqramları Excel İş Kitabından Outlook E-poçtuna Toplu Kopyalayın

1. Başlamaq üçün müəyyən bir Excel iş kitabını açın.
2. Sonra Excel VBA redaktoruna daxil olmaq üçün "Alt + F11" düyməsini basın.
3. Yeni pəncərədə “MS Outlook Obyekt Kitabxanası” və “MS Word Obyekt Kitabxanası” əlavə edin. Addımlar məqalədə təqdim olunanlara bənzəyir – “VBA-da Obyekt Kitabxanasına İstinad necə əlavə olunur".
4. Bundan sonra, aşağıdakı VBA kodunu “ThisWorkbook” layihəsinə daxil edin.

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. Bundan sonra, makronu işə salmaq üçün "F5" düyməsinə vurun və ya alətlər panelindəki "Çalış" simgesini basın.
6. Sonradan, Outlook e-poçtu aşağıdakı şəkildə göstərilən popup xəbərdarlığı ilə göstəriləcək.
7. “İcazə ver” düyməsini seçib kliklədiyiniz zaman mənbə Excel iş kitabındakı bütün diaqramlar bir anda bu məktuba kopyalanacaq.

Görünüşü bütün risklərdən qoruyun

Hamımızın bildiyimiz kimi, məlumatlarımızı, əlbəttə ki, Outlook məlumat fayllarımız da daxil olmaqla, çoxlu təhlükələr əhatə edir. Həmçinin, heç kim Outlook korrupsiyasından əziyyət çəkməkdən çəkinmir. Beləliklə, hər bir Outlook istifadəçisi Outlook-u bütün növ potensial risklərdən qorumaq üçün tədbirlər görməlidir. Konkret olmaq üçün istifadəçilər mütəmadi olaraq Outlook məlumatlarının ehtiyat nüsxəsini çıxarmalıdırlar ki, bu da asanlaşdıra bilər Outlook bərpası Çox. Üstəlik, daha yaxşısı kimi güclü PST düzəltmə alətini əldə etsəniz DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc pozulmuş sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com