Как да копирате пакетно всички диаграми от работна книга на Excel в имейл на Outlook

Ако искате бързо да копирате всички диаграми от всеки работен лист в работна книга на Excel в имейл на Outlook, можете да използвате метода, изложен в тази статия. Може да ви помогне да го получите наведнъж.

Може би сте създали набор от диаграми за статистиката в работна книга на Excel. И по-късно бихте искали да използвате пълноценно тези диаграми, за да създадете нова поща в Outlook. Разбира се, можете да изберете да ги копирате в имейла един по един ръчно. И все пак е доста неприятно. Затова по-долу ще споделим с вас един много по-удобен начин. Може да ви помогне да осъзнаете това само с едно кликване. Сега прочетете, за да го разберете в подробности.

Групово копиране на всички диаграми от работна книга на Excel в имейл на Outlook

1. За начало отворете съответната работна книга на Excel.
2. След това натиснете „Alt + F11“ за достъп до Excel VBA редактор.
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., която е световен лидер в технологиите за възстановяване на данни, включително корумпиран sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com