Wie sendet man ein bestimmtes Diagramm per E-Mail mit VBA in Excel?
Sie wissen möglicherweise, wie Sie eine E-Mail über Outlook in Excel mit VBA-Code senden. Aber wissen Sie, wie Sie ein bestimmtes Diagramm aus einem bestimmten Arbeitsblatt in den Text der E-Mail einfügen? Dieser Artikel zeigt Ihnen die Methode zur Lösung dieses Problems.
Senden eines bestimmten Diagramms per E-Mail in Excel mit VBA-Code
Senden eines bestimmten Diagramms per E-Mail in Excel mit VBA-Code
Bitte gehen Sie wie folgt vor, um ein bestimmtes Diagramm per E-Mail mit VBA-Code in Excel zu senden.
1. Drücken Sie in dem Arbeitsblatt, das das Diagramm enthält, das Sie in den E-Mail-Text einfügen möchten, die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code in das Codefenster.
VBA-Code: Senden eines bestimmten Diagramms per 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
Hinweis: Ändern Sie im Code die E-Mail-Adresse des Empfängers und den E-Mail-Betreff in der Zeile .To = "xrr@163.com" und der Zeile .Subject = "Add Chart in outlook mail body". Sheet1 ist das Arbeitsblatt, das das Diagramm enthält, das Sie senden möchten; ändern Sie es entsprechend Ihren Anforderungen.
3. Drücken Sie die Taste F5, um den Code auszuführen. Geben Sie im sich öffnenden Dialogfeld Kutools für Excel den Namen des Diagramms ein, das Sie in den E-Mail-Text einfügen möchten, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:
Dann wird automatisch eine E-Mail erstellt, in der das angegebene Diagramm im E-Mail-Text angezeigt wird, wie im folgenden Screenshot gezeigt. Klicken Sie auf die Schaltfläche Senden, um diese E-Mail zu versenden.
Entfesseln Sie die Magie von Excel mit Kutools AI
- Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
- VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
- Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Verwandte Artikel:
- Wie sendet man automatisch eine E-Mail basierend auf einem Zellenwert in Excel?
- Wie fügt man eine Signatur in eine Outlook-E-Mail ein, wenn sie per VBA in Excel gesendet wird?
- Wie sendet man eine E-Mail zu einer bestimmten Tageszeit in Excel?
- Wie sendet man eine E-Mail mit HTML-E-Mail-Text in Excel?
- Wie sendet man eine E-Mail mit einem bestimmten Fett/Schriftgröße/Farbe/Unterstrichen-Textformat in Excel?
- Wie sendet man eine E-Mail ohne Outlook in Excel?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins