วิธีส่งแผนภูมิเฉพาะในอีเมลด้วย vba ใน Excel
คุณอาจทราบวิธีส่งอีเมลผ่าน Outlook ใน Excel ด้วยรหัส VBA อย่างไรก็ตามคุณรู้วิธีแนบแผนภูมิเฉพาะในแผ่นงานบางแผ่นลงในเนื้อหาของอีเมลหรือไม่? บทความนี้จะแสดงวิธีการแก้ปัญหานี้
ส่งแผนภูมิเฉพาะในอีเมลใน Excel พร้อมรหัส VBA
ส่งแผนภูมิเฉพาะในอีเมลใน Excel พร้อมรหัส VBA
โปรดทำดังนี้เพื่อส่งแผนภูมิเฉพาะในอีเมลพร้อมรหัส 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 = ""
.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
หมายเหตุ: ในรหัสโปรดเปลี่ยนที่อยู่อีเมลของผู้รับและหัวเรื่องอีเมลในบรรทัด .ถึง = "" เส้นและ .Subject = "เพิ่มแผนภูมิในเนื้อหาจดหมายของ Outlook" , Sheet1 คือแผ่นงานที่มีแผนภูมิที่คุณต้องการส่งโปรดเปลี่ยนเป็นของคุณเอง
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการเปิด Kutools for Excel กล่องโต้ตอบป้อนชื่อของแผนภูมิที่คุณจะแนบในเนื้อหาอีเมลจากนั้นคลิกที่ไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:
จากนั้นอีเมลจะถูกสร้างขึ้นโดยอัตโนมัติพร้อมกับแผนภูมิที่ระบุซึ่งแสดงในเนื้อหาอีเมลดังภาพด้านล่างที่แสดง กรุณาคลิกปุ่มส่งเพื่อส่งอีเมลนี้
บทความที่เกี่ยวข้อง:
- วิธีส่งอีเมลโดยอัตโนมัติตามค่าเซลล์ใน Excel
- วิธีแทรกลายเซ็นลงในอีเมล Outlook เมื่อส่งโดย vba ใน Excel
- วิธีส่งอีเมลในช่วงเวลาหนึ่งของวันใน Excel
- วิธีส่งอีเมลด้วยเนื้อหาอีเมล HTML ใน Excel
- วิธีส่งอีเมลด้วยรูปแบบข้อความตัวหนา / ขนาด / สี / ขีดเส้นใต้ที่ระบุใน Excel
- วิธีส่งอีเมลโดยไม่มี Outlook ใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!













