Excel-ийн ажлын хуудасны дэлгэцийн агшинг Outlook имэйлийн үндсэн хэсэгт оруулах 2 хурдан арга

Заримдаа Excel-ийн ажлын хуудсыг имэйлийн үндсэн хэсэгт хуулахын оронд ажлын хуудасныхаа дэлгэцийн зургийг оруулахыг хүсч магадгүй юм. Тиймээс, энэ нийтлэл нь үүнийг олж авах 2 аргыг харуулах болно.

Олон хэрэглэгчид тодорхой Excel-ийн ажлын хуудасны скриншотыг экспортолж, дараа нь Outlook имэйлийн мессежийн хэсэгт дэлгэцийн агшинг оруулахыг хүсдэг. Зөвхөн дэлгэцийн агшин дээр нүдний утгыг өөрчлөх боломжгүй юм. Хүлээн авагчид компьютер дээрээ MS Excel суулгаагүй байсан ч скриншотыг үзэх боломжтой.

Үүнийг 2 аргаар хэрэгжүүлж болно. Эхнийх нь дараахь 1-р аргад нарийвчлан оруулсан "Insert"> "Screenshot" гэсэн онцлог шинж чанар юм. Хоёр дахь нь Аргын 2-т үзүүлсэн шиг жаахан скрипт ашиглаж байна. Одоо уншина уу тэдгээрийг нарийвчлан авах.

Арга 1: Excel цонхны дэлгэцийн зургийг оруулах

1. Эхлээд имэйл оруулахыг хүссэн Excel-ийн ажлын хуудсыг нээнэ үү.
2. Дараа нь Outlook програмыг ажиллуулаад шинэ имэйл үүсгээрэй.
3. Дараа нь, Зурвас цонхонд "Оруулах" таб руу шилжүүлнэ үү.
4. Дараа нь "Дэлгэцийн зураг" товчийг дарна уу.
5. "Боломжтой Windows" жагсаалтаас Excel-ийн ажлын хуудасны дэлгэцийн зургийг сонгоно уу.
6. Нэгэнт Excel-ийн ажлын хуудасны дэлгэцийн агшинг оруулах болно.
7. Одоо та дэлгэцийн зургийг дур мэдэн тайрч авах боломжтой.

Арга 2: Excel-ийн ажлын хуудасны дэлгэцийн зургийг VBA-р хуулж ав

1. Хамгийн эхэнд Excel файлыг нээнэ үү.
2. Дараа нь "Alt + F11" товчийг дарж Excel VBA засварлагчийг ажиллуулна уу.
3. Дараа нь, "MS Outlook Object Library" болон "MS Word Object Library" гэсэн лавлагааг "VBA дээр объектын номын сангийн лавлагааг хэрхэн нэмэх вэ".
4. Үүний дараа дараахь 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

5. Дараа нь “F5” дээр дарж энэ макрог ажиллуулна уу.
6. Нэн даруй шинэ имэйл гарч ирнэ.
7. Жижиг харилцах цонхонд "Зөвшөөрөх" товчийг дарна уу.
8. Эцэст нь Excel-ийн ажлын хуудасны дэлгэцийн агшинг шуудангийн хэсэгт оруулах болно.

Outlook файлын гэмтэлтэй тулгарах үед

Хэрэв та санамсаргүйгээр вирусын халдвар авсан хавсралтыг татаж авбал таны Outlook файл халдлагад өртөх магадлалтай. Ийм нөхцөлд та вирусыг устгахын тулд эхлээд вирусны эсрэг програм ажиллуулах хэрэгтэй. Үүний дараа та хүчирхэг гуравдагч талын засвар үйлчилгээнд хөрөнгө оруулах хэрэгтэй DataNumen Outlook RepairАль болох засварын газар хөлс гаргалгүйгээр файл.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf-ийг сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com