วิธีส่งแผนภูมิเฉพาะในอีเมลด้วย vba ใน Excel

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

ส่งแผนภูมิเฉพาะในอีเมลใน Excel พร้อมรหัส VBA

ส่งแผนภูมิเฉพาะในอีเมลใน Excel พร้อมรหัส VBA

สุดทึ่ง! การใช้แท็บที่มีประสิทธิภาพใน Excel เช่น Chrome, Firefox และ Safari!

ประหยัดเวลา 50% และลดการคลิกเมาส์หลายพันครั้งให้คุณทุกวัน!

---

โปรดทำดังนี้เพื่อส่งแผนภูมิเฉพาะในอีเมลพร้อมรหัส VBA ใน Excel

1. ในแผ่นงานมีแผนภูมิที่คุณต้องการแนบในเนื้อหาอีเมลให้กดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างรหัส

รหัส VBA: ส่งแผนภูมิเฉพาะในอีเมลใน Excel

Sub mailHTMLsend()
'Updated by Extendoffice 2018/3/5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xStartMsg As String
    Dim xEndMsg As String
    Dim xChartName As String
    Dim xChartPath As String
    Dim xPath As String
    Dim xChart As ChartObject
    On Error Resume Next
    xChartName = Application.InputBox("Please enter the chart name:", "KuTools for Excel", , , , , , 2)
    If xChartName = "" Then Exit Sub
    Set xChart = Sheets("Sheet1").ChartObjects(xChartName) 'Change "Sheet1" to your worksheet name
    If xChart Is Nothing Then Exit Sub
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xStartMsg = "<font size='5' color='black'> Good Day," & "<br> <br>" & "Please find the chart below: " & "<br> <br> </font>"
    xEndMsg = "<font size='4' color='black'> Many Thanks," & "<br> <br> </font>"
    xChartPath = Application.ActiveWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".bmp"
    xPath = "<p align='Left'><img src=" & "cid:" & Mid(xChartPath, InStrRev(xChartPath, "\") + 1) & """  width=700 height=500 > <br> <br>"
    xChart.Chart.Export xChartPath
    With xOutMail
        .To = "xrr@163.com"
        .Subject = "Add Chart in outlook mail body"
        .Attachments.Add xChartPath
        .HTMLBody = xStartMsg & xPath & xEndMsg
        .Display
    End With
    Kill xChartPath
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

หมายเหตุ: ในรหัสโปรดเปลี่ยนที่อยู่อีเมลของผู้รับและหัวเรื่องอีเมลในบรรทัด . ถึง = "xrr@163.com" เส้นและ .Subject = "เพิ่มแผนภูมิในเนื้อหาจดหมายของ Outlook" , Sheet1 คือแผ่นงานที่มีแผนภูมิที่คุณต้องการส่งโปรดเปลี่ยนเป็นของคุณเอง

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการเปิด Kutools สำหรับ Excel กล่องโต้ตอบป้อนชื่อของแผนภูมิที่คุณจะแนบในเนื้อหาอีเมลจากนั้นคลิกที่ไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นอีเมลจะถูกสร้างขึ้นโดยอัตโนมัติพร้อมกับแผนภูมิที่ระบุซึ่งแสดงในเนื้อหาอีเมลดังภาพด้านล่างที่แสดง กรุณาคลิกปุ่มส่งเพื่อส่งอีเมลนี้

บทความที่เกี่ยวข้อง:

• วิธีส่งอีเมลโดยอัตโนมัติตามค่าเซลล์ใน Excel
• วิธีแทรกลายเซ็นลงในอีเมล Outlook เมื่อส่งโดย vba ใน Excel
• วิธีส่งอีเมลในช่วงเวลาหนึ่งของวันใน Excel
• วิธีส่งอีเมลด้วยเนื้อหาอีเมล HTML ใน Excel
• วิธีส่งอีเมลด้วยรูปแบบข้อความตัวหนา / ขนาด / สี / ขีดเส้นใต้ที่ระบุใน Excel
• วิธีส่งอีเมลโดยไม่มี Outlook ใน Excel

---

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

• นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
• ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
• ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
• เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
• สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
• แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
• ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
• รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
• คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ... 

---

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

• เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
• เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
• เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...