Якщо ви хочете швидко скопіювати всі діаграми з кожного аркуша книги Excel у електронну пошту Outlook, ви можете скористатися методом, викладеним у цій статті. Це може допомогти вам отримати це за один раз.
Можливо, ви створили стос діаграм статистичних даних у книзі Excel. А пізніше ви хотіли б повністю використовувати ці діаграми для створення нової пошти Outlook. Звичайно, ви можете скопіювати їх по електронній пошті по одному вручну. Проте це досить клопітно. Тому в наступних розділах ми поділимося з вами набагато зручнішим способом. Це може допомогти вам усвідомити це, просто натиснувши. Тепер читайте далі, щоб отримати це детально.
Пакетне копіювання всіх діаграм із книги Excel у електронну пошту Outlook
- Для початку відкрийте потрібну книгу Excel.
- Потім натисніть “Alt + F11”, щоб отримати доступ до редактора Excel VBA.
- У новому вікні додайте «Бібліотеку об’єктів MS Outlook» та «Бібліотеку об’єктів MS Word». Кроки аналогічні тим, що описані у статті – «Як додати посилання на бібліотеку об'єктів у VBA».
- Після цього додайте наступний код 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
- Після цього натисніть кнопку «F5» або клацніть піктограму «Виконати» на панелі інструментів, щоб запустити макрос.
- Згодом повідомлення електронної пошти Outlook відображатиметься із спливаючим попередженням, що відображається як наступне зображення.
- Якщо вибрати та натиснути кнопку «Дозволити», усі діаграми у вихідній книзі Excel одночасно скопіюються до цієї пошти.
Захистіть Outlook від усіх ризиків
Як ми всі знаємо, навколо наших даних оточує безліч загроз, звичайно, включаючи файли даних Outlook. Крім того, ніхто не охоче страждає від корупції в Outlook. Таким чином, кожен користувач Outlook повинен вжити заходів, щоб захистити свій Outlook від усіх видів потенційних ризиків. Точніше кажучи, користувачі повинні регулярно створювати резервні копії даних Outlook, що може полегшити Відновлення Outlook багато. Більше того, вам краще взяти в руки потужний інструмент виправлення PST, такий як DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі корумпований sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com