Hoe kan ik een specifieke grafiek via e-mail verzenden met VBA in Excel?
U weet misschien al hoe u een e-mail kunt verzenden via Outlook in Excel met VBA-code. Maar wist u ook dat u een specifieke grafiek uit een bepaald werkblad rechtstreeks in de berichttekst van die e-mail kunt plaatsen? Dit artikel laat u precies zien hoe u dat voor elkaar krijgt.
Verzend een specifieke grafiek in een e-mail in Excel met VBA-code
Verzend een specifieke grafiek in een e-mail in Excel met VBA-code
Volg deze stappen om een specifieke grafiek via e-mail te verzenden met VBA-code in Excel.
1. Ga naar het werkblad met de grafiek die u in de e-mailtekst wilt plaatsen en druk op 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 de onderstaande VBA-code naar het codovenster.
VBA-code: Verzend een specifieke grafiek in een e-mail 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: Pas in de code het e-mailadres van de ontvanger en het e-mailonderwerp aan in regel .To = „xrr@163.com" en regel .Subject = „Grafiek toevoegen in Outlook-mailtekst". Sheet1 is het werkblad dat de grafiek bevat die u wilt verzenden; pas dit aan naar uw eigen situatie.
3. Druk op de toets F5 om de code uit te voeren. Voer in het geopende dialoogvenster Kutools voor Excel de naam van de grafiek in die u in de e-mailtekst wilt plaatsen en klik vervolgens op de knop OK. Zie screenshot:
Er wordt vervolgens automatisch een e-mail gemaakt met de opgegeven grafiek zichtbaar in de e-mailtekst, zoals hieronder in de screenshot wordt weergegeven. Klik op de knop Verzenden om deze e-mail te verzenden.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Gerelateerde artikelen:
- Hoe stuur ik automatisch een e-mail op basis van een celwaarde in Excel?
- Hoe voeg ik bij het verzenden van een e-mail via VBA in Excel een handtekening toe in Outlook?
- Hoe kan ik een e-mail op een specifiek tijdstip van de dag verzenden vanuit Excel?
- Hoe stuur ik een e-mail met een HTML-berichttekst vanuit Excel?
- Hoe stuur ik een e-mail met tekst in Excel waarvan het lettertype, de lettergrootte, de kleur en de onderstreping exact zijn opgegeven?
- Hoe stuur ik een e-mail vanuit Excel zonder Outlook te gebruiken?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins