Іноді, замість того, щоб копіювати аркуш Excel у тіло електронної пошти, можливо, ви захочете вставити знімок екрана аркуша. Таким чином, ця стаття покаже 2 способи його отримання.
Багато користувачів хочуть експортувати знімок екрана певного робочого аркуша Excel, а потім вставити знімок екрана в тіло повідомлення електронної пошти Outlook. Тільки на скріншоті значення клітинки змінити не можна. І скріншот можна переглянути, навіть якщо одержувачі не встановлюють MS Excel на своїх комп’ютерах.
Це можна реалізувати двома способами. Перший - це вбудована функція - “Вставити”> “Знімок екрана”, яка детально представлена в наступному Методі 2. А друга - використовує трохи сценаріїв, як показано в Методі 1. Тепер, читайте далі до отримати їх докладно.
Спосіб 1: Вставте знімок екрана вікна Excel
- Спочатку відкрийте робочий аркуш Excel, який потрібно вставити в електронну пошту.

- Потім запустіть Outlook і створіть новий електронний лист.
- Далі, у вікні Повідомлення перейдіть на вкладку “Вставка”.
- Згодом натисніть кнопку “Знімок екрана”.
- У списку “Доступна Windows” виберіть знімок екрана робочого аркуша Excel.
- Одразу буде вставлено скріншот робочого аркуша Excel.
- Тепер ви можете обрізати скріншот за бажанням.
Спосіб 2: Скопіюйте знімок екрана робочого аркуша Excel за допомогою VBA
- З самого початку відкрийте файл Excel.
- Потім натисніть “Alt + F11”, щоб запустити редактор Excel VBA.
- Далі додайте посилання на «Бібліотеку об’єктів MS Outlook» та «Бібліотеку об’єктів MS Word» відповідно до «Як додати посилання на бібліотеку об'єктів у VBA».
- Після цього скопіюйте наступний код VBA в проект або модуль.
Sub ExportInsert_ScreenshotOfSheet_Mail()
Dim objSheet As Excel.Worksheet
Dim objUsedRange As Excel.Range
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.document
'Change "Sheets(1)" to the specific worksheet number
Set objSheet = ActiveWorkbook.Sheets(1)
Set objUsedRange = objSheet.UsedRange
'Copy the screenshot of the sheet
objUsedRange.CopyPicture xlScreen, xlPicture
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
'Paste the copied screenshot
objMailDocument.Range(0, 0).Paste
End Sub
- Пізніше натисніть “F5”, щоб запустити цей макрос.
- Відразу з’явиться новий електронний лист.
- У маленькому діалоговому вікні натисніть кнопку «Дозволити».
- Нарешті, скріншот робочого аркуша Excel буде вставлений у тіло пошти.
Під час боротьби з пошкодженнями файлів Outlook
Якщо ви випадково завантажите будь-які заражені вірусом вкладення, ваш файл Outlook, швидше за все, буде атакований і тим самим скомпрометований. У такій ситуації спочатку потрібно запустити антивірусне програмне забезпечення для знищення вірусів. Згодом вам потрібно вкласти гроші у надійну сторонню програму ремонту, таку як DataNumen Outlook Repair, які можуть ремонт PST файл, не потіючи піт.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити mdf - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com




