Namiesto kopírovania tabuľky programu Excel do tela e-mailu môžete niekedy vložiť snímku obrazovky tohto listu. Tento článok teda ukáže 2 spôsoby, ako to získať.
Mnoho používateľov by chcelo exportovať snímku obrazovky konkrétneho listu programu Excel a potom snímku obrazovky vložiť do tela správy e-mailu v Outlooku. Hodnoty buniek nemožno zmeniť iba na snímke obrazovky. A snímku obrazovky je možné zobraziť, aj keď príjemcovia nenainštalujú program MS Excel do svojich počítačov.
To sa dá dosiahnuť dvoma spôsobmi. Prvý je zabudovanou funkciou - „Vložiť“> „Screenshot“, ktorá je podrobne predstavená v nasledujúcej Metóde 2. A druhá používa trochu skriptovania, ako je to znázornené v Metóde 1. Teraz čítajte ďalej získať ich podrobne.
Metóda 1: Vložte snímku obrazovky okna programu Excel
- Najskôr otvorte pracovný hárok programu Excel, ktorý chcete vložiť do e-mailu.

- Potom spustite program Outlook a vytvorte nový e-mail.
- Ďalej v okne Správa prepnite na kartu „Vložiť“.
- Následne kliknite na tlačidlo „Screenshot“.
- V zozname „Dostupné Windows“ vyberte snímku obrazovky pracovného hárka programu Excel.
- Okamžite sa vloží snímka obrazovky pracovného hárka programu Excel.
- Teraz môžete snímku obrazovky ľubovoľne orezať.
Metóda 2: Skopírujte snímku obrazovky excelového hárka pomocou VBA
- Hneď na úvod otvorte súbor Excel.
- Potom stlačte kombináciu klávesov „Alt + F11“ a spustite editor Excel VBA.
- Ďalej pridajte odkaz na „Knižnica objektov MS Outlook“ a „Knižnica objektov MS Word“ podľa „Ako pridať odkaz na knižnicu objektov vo VBA".
- Potom skopírujte nasledujúci kód VBA do projektu alebo modulu.
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
- Neskôr toto makro spustíte stlačením klávesu „F5“.
- Ihneď sa zobrazí nový e-mail.
- V malom dialógovom okne kliknite na tlačidlo „Povoliť“.
- Nakoniec sa do tela pošty vloží snímka obrazovky pracovného hárka programu Excel.
Pri konfrontácii s poškodením súborov programu Outlook
Ak omylom stiahnete akékoľvek prílohy infikované vírusom, je veľmi pravdepodobné, že dôjde k útoku na váš súbor programu Outlook, a teda k jeho zneužitiu. V takejto situácii musíte na spustenie vírusov najskôr spustiť antivírusový softvér. Potom musíte investovať do robustného nástroja na opravu tretích strán, ako je napr DataNumen Outlook Repair, ktorý môže opraviť PST pilník bez toho, aby ste sa zapotili.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane vymáhať mdf a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S




