Hoe een specifiek diagram in een e-mail te verzenden met VBA in Excel?
U weet misschien hoe u een e-mail via Outlook in Excel kunt versturen met VBA-code. Maar weet u ook hoe u een specifiek diagram in een bepaald werkblad kunt bijvoegen in de hoofdtekst van de e-mail? Dit artikel laat u de methode zien om dit probleem op te lossen.
Een specifiek diagram in een e-mail verzenden in Excel met VBA-code
Een specifiek diagram in een e-mail verzenden in Excel met VBA-code
Volg de volgende stappen om een specifiek diagram in een e-mail te verzenden met VBA-code in Excel.
1. Druk in het werkblad dat het diagram bevat dat u in de hoofdtekst van de e-mail wilt bijvoegen, op de toetsen Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het Code-venster.
VBA-code: Een specifiek diagram in een e-mail verzenden in 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="/%20&%20"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
Opmerking: In de code moet u het e-mailadres van de ontvanger en het e-mailonderwerp wijzigen in regel .To = "xrr@163.com" en regel .Subject = "Add Chart in outlook mail body", Sheet1 is het werkblad dat het diagram bevat dat u wilt verzenden, wijzig dit naar uw eigen gegevens.
3. Druk op de F5-toets om de code uit te voeren. Voer in het dialoogvenster Kutools voor Excel dat wordt geopend, de naam in van het diagram dat u in de hoofdtekst van de e-mail wilt bijvoegen, en klik vervolgens op de knop OK. Zie screenshot:
Er wordt automatisch een e-mail gemaakt met het gespecificeerde diagram dat wordt weergegeven in de hoofdtekst van de e-mail zoals in onderstaande screenshot. Klik op de knop Verzenden om deze e-mail te versturen.
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Gerelateerde artikelen:
- Hoe automatisch een e-mail te versturen op basis van celwaarde in Excel?
- Hoe een handtekening invoegen in een Outlook-e-mail bij het verzenden via VBA in Excel?
- Hoe een e-mail op een specifiek tijdstip van de dag te versturen in Excel?
- Hoe een e-mail te versturen met HTML-e-mailinhoud in Excel?
- Hoe een e-mail te versturen met gespecificeerde vet/grootte/kleur/onderstreepte tekstopmaak in Excel?
- Hoe een e-mail te versturen zonder Outlook in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen