Барлық диаграммаларды Excel жұмыс кітабынан Outlook электрондық поштасына қалай көшіруге болады

Егер сіз барлық диаграммаларды Excel жұмыс кітабындағы барлық жұмыс парағынан Outlook электрондық поштасына тез көшіргіңіз келсе, осы мақалада көрсетілген әдісті қолдануға болады. Бұл сізге оны бір сәтте алуға көмектеседі.

Мүмкін сіз Excel жұмыс кітабында статистика үшін диаграммалар бумасын жасаған боларсыз. Кейінірек, сіз осы диаграммаларды жаңа Outlook поштасын құру үшін толық пайдаланғыңыз келеді. Әрине, оларды электрондық поштаға қолмен бір-бірден көшіруді таңдауға болады. Дегенмен, бұл өте қиын. Сондықтан, келесілерде біз сіздермен әлдеқайда ыңғайлы жолмен бөлісетін боламыз. Бұл жай ғана басу арқылы жүзеге асыруға көмектеседі. Енді оны егжей-тегжейлі алу үшін оқыңыз.

Барлық диаграммаларды Excel жұмыс кітабынан Outlook электрондық поштасына көшіріңіз

1. Бастау үшін, арнайы Excel жұмыс кітабын ашыңыз.
2. Содан кейін Excel VBA редакторына кіру үшін «Alt + F11» пернелерін басыңыз.
3. Жаңа терезеде «MS Outlook нысан кітапханасы» және «MS Word нысан кітапханасын» қосыңыз. Қадамдар мақалада енгізілген қадамдарға ұқсас – «VBA бағдарламасында объект кітапханасына сілтемені қалай қосуға болады«.
4. Осыдан кейін келесі VBA кодын «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. Осыдан кейін макросты орындау үшін «F5» батырмасын басыңыз немесе құралдар тақтасындағы «Іске қосу» белгішесін басыңыз.
6. Кейіннен Outlook электрондық поштасы келесі суретте көрсетілген қалқымалы ескертуімен көрсетіледі.
7. «Рұқсат ету» батырмасын таңдап, оны басқанда, Excel жұмыс кітабындағы барлық диаграммалар осы поштаға бірден көшіріледі.

Outlook бағдарламасын барлық тәуекелдерден қорғаңыз

Біздің барлығымыз білетіндей, біздің деректерімізге көптеген қауіп-қатерлер, әрине, біздің Outlook деректер файлдары да жатады. Сондай-ақ, ешкім Outlook-та сыбайлас жемқорлыққа жол бергісі келмейді. Осылайша, кез-келген Outlook пайдаланушысы Outlook-ті барлық ықтимал тәуекелдерден қорғау үшін шаралар қабылдауы керек. Нақты болу үшін, пайдаланушыларға Outlook деректерінің резервтік көшірмесін жасау қажет, бұл жеңілдетуі мүмкін Outlook қалпына келтіру көп. Сонымен қатар, сіз қуатты PST түзету құралын ұстағаныңыз жөн, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. сыбайлас кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com