Ndonjëherë, në vend që të kopjoni fletën e punës Excel në trupin e një emaili, mund të dëshironi të futni pamjen e ekranit të fletës së punës. Kështu, ky artikull do të tregojë 2 mënyra për ta marrë atë.
Shumë përdorues dëshirojnë të eksportojnë një pamje të ekranit të një flete pune specifike të Excel dhe më pas të fusin pamjen e ekranit në trupin e mesazhit të një emaili të Outlook. Vetëm në pamjen e ekranit, vlerat e qelizave nuk mund të ndryshohen. Dhe pamja e ekranit mund të shihet edhe nëse marrësit nuk e instalojnë MS Excel në kompjuterët e tyre.
Kjo mund të realizohet me 2 mënyra. E para është nga veçoria e integruar – “Insert” > “Screenshot”, e cila është prezantuar në mënyrë të hollësishme në metodën 1 vijuese. Dhe e dyta është duke përdorur pak skriptim, siç tregohet në Metoda 2. Tani, lexoni në merrni ato në detaje.
Metoda 1: Fut pamjen e ekranit të dritares së Excel
- Fillimisht, hapni fletën e punës Excel që dëshironi të futni në email.

- Pastaj, hapni Outlook dhe krijoni një email të ri.
- Më pas, në dritaren e Mesazhit, kaloni në skedën "Fut".
- Më pas, klikoni në butonin "Screenshot".
- Në listën "Available Windows", zgjidhni pamjen e ekranit të fletës së punës Excel.
- Menjëherë, fotografia e ekranit të fletës së punës Excel do të futet.
- Tani, ju mund të shkurtoni pamjen e ekranit sipas dëshirës.
Metoda 2: Kopjoni pamjen e ekranit të fletës së punës Excel me VBA
- Që në fillim, hapni skedarin Excel.
- Më pas, shtypni "Alt + F11" për të aktivizuar redaktorin Excel VBA.
- Më pas, shtoni referencën për "MS Outlook Object Library" dhe "MS Word Object Library" sipas "Si të shtoni një referencë të bibliotekës së objekteve në VBA".
- Pas kësaj, kopjoni kodin e mëposhtëm VBA në një projekt ose modul.
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
- Më vonë, shtypni "F5" për të ekzekutuar këtë makro.
- Menjëherë do të shfaqet një email i ri.
- Në kutinë e vogël të dialogut, klikoni butonin "Lejo".
- Së fundi, fotografia e ekranit të fletës së punës Excel do të futet në trupin e postës.
Kur përballeni me dëmtimin e skedarit të Outlook
Nëse shkarkoni aksidentalisht ndonjë bashkëngjitje të infektuar me virus, skedari juaj Outlook ka shumë të ngjarë të sulmohet dhe në këtë mënyrë të komprometohet. Në një situatë të tillë, së pari duhet të ekzekutoni softuer antivirus për të vrarë viruset. Më pas, duhet të investoni në një mjet të fuqishëm riparimi të palëve të treta, si p.sh DataNumen Outlook Repair, të cilat munden riparim PST dosje pa u djersitur.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com




