Wie sendet man ein bestimmtes Diagramm mithilfe von VBA per E-Mail aus Excel heraus?
Möglicherweise wissen Sie bereits, wie Sie mithilfe von VBA-Code in Excel eine E-Mail über Outlook versenden – aber wussten Sie auch, dass sich ein bestimmtes Diagramm aus einem bestimmten Arbeitsblatt direkt in den Textkörper der E-Mail einfügen lässt? Dieser Artikel zeigt Ihnen genau diese Lösung.
Ein bestimmtes Diagramm per VBA-Code in einer E-Mail in Excel versenden
Ein bestimmtes Diagramm per VBA-Code in einer E-Mail in Excel versenden
So versenden Sie ein bestimmtes Diagramm mithilfe von VBA-Code per E-Mail in Excel:
1. Öffnen Sie im Arbeitsblatt, das das Diagramm enthält, das Sie in den E-Mail-Textkörper einfügen möchten, das Fenster Alt+F11, indem Sie die Tastenkombination Microsoft Visual Basic for Applications drücken.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code in das Code-Fenster.
VBA-Code: Ein bestimmtes Diagramm in einer E-Mail in Excel versenden
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: Passen Sie im Code die Empfänger-E-Mail-Adresse und den E-Mail-Betreff in Zeile .To = „xrr@163.com"und in Zeile .Subject = „Diagramm in Outlook-E-Mail-Textkörper einfügen"an.Sheet1ist das Arbeitsblatt, das das zu versendende Diagramm enthält – bitte passen Sie dies entsprechend an.
3. Drücken Sie die Taste F5, um den Code auszuführen. Geben Sie im geöffneten Kutools für Excel-Dialogfeld den Namen des Diagramms ein, das Sie in den E-Mail-Textkörper einfügen möchten, und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:
Anschließend wird automatisch eine E-Mail erstellt, deren Textkörper das angegebene Diagramm wie im folgenden Screenshot zeigt. Klicken Sie auf „Senden“, um die E-Mail zu versenden.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Verwandte Artikel:
- Wie sendet man eine E-Mail automatisch, sobald ein bestimmter Zellenwert in Excel erreicht wird?
- Wie fügt man beim Versand per VBA in Excel eine Signatur in eine Outlook-E-Mail ein?
- Wie sendet man eine E-Mail zu einer bestimmten Tageszeit aus Excel heraus?
- Wie sendet man eine E-Mail mit HTML-formatiertem Textkörper aus Excel heraus?
- Wie sendet man eine E-Mail mit vorgegebenem Textformat – fett, in bestimmter Schriftgröße, Farbe und unterstrichen – aus Excel heraus?
- Wie sendet man eine E-Mail in Excel, ohne Outlook zu verwenden?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins