วิธีแบทช์คัดลอกแผนภูมิทั้งหมดจากสมุดงาน Excel ไปยังอีเมล Outlook

หากคุณต้องการคัดลอกแผนภูมิทั้งหมดอย่างรวดเร็วจากทุกแผ่นงานในสมุดงาน Excel ไปยังอีเมล Outlook คุณสามารถใช้วิธีการที่แสดงไว้ในบทความนี้ สามารถช่วยให้คุณได้รับในครั้งเดียว

บางทีคุณอาจสร้างแผนภูมิซ้อนสำหรับสถิติในสมุดงาน Excel และหลังจากนั้น คุณต้องการใช้แผนภูมิเหล่านี้อย่างเต็มที่เพื่อสร้างจดหมาย Outlook ใหม่ แน่นอน คุณสามารถเลือกคัดลอกไปยังอีเมลทีละฉบับได้ด้วยตนเอง ถึงกระนั้นก็ค่อนข้างลำบาก ดังนั้น ต่อไปนี้ เราจะแบ่งปันวิธีที่สะดวกกว่ากับคุณ สามารถช่วยให้คุณทราบได้เพียงแค่คลิกเดียว ตอนนี้อ่านต่อเพื่อรับรายละเอียด

ชุดคัดลอกแผนภูมิทั้งหมดจากสมุดงาน Excel ไปยังอีเมล Outlook

1. ขั้นแรก ให้เปิดไฟล์ Excel ที่ต้องการขึ้นมา
2. จากนั้นกด “Alt + F11” เพื่อเข้าถึงตัวแก้ไข Excel VBA
3. ในหน้าต่างใหม่ ให้เพิ่ม “MS Outlook Object Library” และ “MS Word Object Library” ขั้นตอนจะคล้ายกับที่ได้แนะนำไว้ในบทความ – “วิธีการเพิ่มการอ้างอิงไลบรารีอ็อบเจ็กต์ใน VBA"
4. หลังจากนั้น ให้ใส่รหัส VBA ต่อไปนี้ในโครงการ “ThisWorkbook”

Sub CopyAllChartsToOutlookEmail()
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objSheet As Excel.Worksheet
    Dim objChart As Excel.ChartObject
 
    'Get Outlook Application
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
 'Create an Outlook Email
 Set objMail = objOutlookApp.CreateItem(olMailItem)
 objMail.Display
 Set objMailDocument = objMail.GetInspector.WordEditor
 
 'Copy All Charts from Each Sheet to the New Email
 For Each objSheet In ActiveWorkbook.Worksheets
 For Each objChart In objSheet.ChartObjects
 objChart.Copy
 objMailDocument.Range(0, 0).Paste
 Next
 Next
End Sub

5. หลังจากนั้น แตะที่ปุ่มคีย์ “F5” หรือคลิกไอคอน “เรียกใช้” ในแถบเครื่องมือเพื่อเรียกใช้มาโคร
6. ต่อจากนั้น อีเมล Outlook จะแสดงขึ้นพร้อมคำเตือนป๊อปอัป ดังภาพต่อไปนี้
7. เมื่อคุณเลือกและคลิกที่ปุ่ม "อนุญาต" แผนภูมิทั้งหมดในสมุดงาน Excel ต้นทางจะถูกคัดลอกลงในจดหมายนี้พร้อมกัน

ป้องกัน Outlook จากความเสี่ยงทั้งหมด

อย่างที่เราทราบกันดีว่า มีภัยคุกคามมากมายที่อยู่รายล้อมข้อมูลของเรา รวมถึงไฟล์ข้อมูล Outlook ของเราด้วย นอกจากนี้ยังไม่มีใครลังเลที่จะประสบกับความเสียหายของ Outlook ดังนั้น ผู้ใช้ Outlook ทุกคนต้องดำเนินการเพื่อปกป้อง Outlook จากความเสี่ยงที่อาจเกิดขึ้นทุกประเภท ผู้ใช้ต้องสำรองข้อมูล Outlook เป็นประจำ ซึ่งสามารถอำนวยความสะดวกได้ การกู้คืน Outlook มาก. นอกจากนี้ คุณควรได้รับเครื่องมือแก้ไข PST ที่มีศักยภาพ เช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ sql เสียหาย และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.