Időnként az Excel munkalap e-mail törzsébe másolása helyett érdemes beszúrni a munkalap képernyőképét. Így ez a cikk 2 módszert mutat be ennek megszerzésére.
Sok felhasználó szeretne exportálni egy adott Excel-munkalap képernyőképet, majd beilleszteni a képernyőképet egy Outlook e-mail üzenettörzsébe. Csak a képernyőképen a cellaértékek nem módosíthatók. A képernyőkép pedig akkor is megtekinthető, ha a címzettek nem telepítenek MS Excelt a számítógépükre.
Ez 2 módon valósítható meg. Az első a beépített funkció – „Beszúrás” > „Képernyőkép”, amelyet részletesen bemutatunk a következő 1. módszerben. A második pedig egy kis szkriptet használ, amint az a 2. módszerben látható. Most olvassa el a következőt: részletesen beszerezheti őket.
1. módszer: Illessze be az Excel ablak képernyőképét
- Először nyissa meg az e-mailbe beszúrni kívánt Excel-munkalapot.
- Ezután indítsa el az Outlookot, és hozzon létre egy új e-mailt.
- Ezután az Üzenet ablakban váltson a „Beszúrás” fülre.
- Ezt követően kattintson a „Képernyőkép” gombra.
- Az „Elérhető Windows” listában válassza ki az Excel munkalap képernyőképét.
- Egyszerre beszúrásra kerül az Excel munkalap képernyőképe.
- Most tetszés szerint levághatja a képernyőképet.
2. módszer: Másolja ki az Excel-munkalap képernyőképét VBA-val
- A legelején nyissa meg az Excel fájlt.
- Ezután nyomja meg az „Alt + F11” gombot az Excel VBA szerkesztő elindításához.
- Ezután adja hozzá az „MS Outlook Object Library” és „MS Word Object Library” a „Hogyan adjunk hozzá egy Object Lib-etrary Hivatkozás a VBA-ban".
- Ezután másolja be a következő VBA-kódot egy projektbe vagy modulba.
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
- Később nyomja meg az „F5” gombot a makró futtatásához.
- Azonnal egy új e-mail jelenik meg.
- A kis párbeszédpanelen kattintson az „Engedélyezés” gombra.
- Végül az Excel munkalap képernyőképe bekerül a levél törzsébe.
Amikor szembesül az Outlook fájl sérülésével
Ha véletlenül vírussal fertőzött mellékleteket tölt le, nagy valószínűséggel megtámadják az Outlook-fájlt, és ezáltal feltörik. Ilyen helyzetben először víruskereső szoftvert kell futtatnia a vírusok elpusztításához. Ezt követően be kell fektetnie egy robusztus külső javító segédprogramba, mint pl DataNumen Outlook Repair, melyik tud javítás PST reszelje le anélkül, hogy izzadna.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com