Wie sende ich ein bestimmtes Diagramm in einer E-Mail mit vba in Excel?
Möglicherweise wissen Sie, wie Sie eine E-Mail über Outlook in Excel mit VBA-Code senden. Wissen Sie jedoch, wie Sie ein bestimmtes Diagramm in einem bestimmten Arbeitsblatt an den Text der E-Mail anhängen können? Dieser Artikel zeigt Ihnen die Methode zur Lösung dieses Problems.
Senden Sie ein bestimmtes Diagramm in einer E-Mail in Excel mit VBA-Code
Senden Sie ein bestimmtes Diagramm in einer E-Mail in Excel mit VBA-Code
Gehen Sie wie folgt vor, um ein bestimmtes Diagramm in einer E-Mail mit VBA-Code in Excel zu senden.
1. Drücken Sie im Arbeitsblatt, das das Diagramm enthält, das Sie in den E-Mail-Text einfügen möchten, die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte klicken Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Code-Fenster.
VBA-Code: Senden Sie ein bestimmtes Diagramm in einer 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=" & "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
Note: Ändern Sie im Code die E-Mail-Adresse des Empfängers und den Betreff der E-Mail .An = "" und Linie .Subject = "Diagramm im Outlook-E-Mail-Text hinzufügen" , Sheet1 Ist das Blatt, das das Diagramm enthält, das Sie senden möchten, ändern Sie es bitte in Ihr eigenes.
3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. In der Eröffnung Kutools for Excel Geben Sie im Dialogfeld den Namen des Diagramms ein, das Sie in den E-Mail-Text einfügen möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:
Anschließend wird automatisch eine E-Mail mit dem angegebenen Diagramm erstellt, das im E-Mail-Text angezeigt wird (siehe Abbildung unten). Bitte klicken Sie auf die Schaltfläche Senden, um diese E-Mail zu senden.
In Verbindung stehende Artikel:
- Wie sende ich automatisch E-Mails basierend auf dem Zellenwert in Excel?
- Wie füge ich beim Senden per VBA in Excel eine Signatur in eine Outlook-E-Mail ein?
- Wie sende ich eine E-Mail zu einer bestimmten Tageszeit in Excel?
- Wie sende ich E-Mails mit HTML-E-Mail-Text in Excel?
- Wie sende ich eine E-Mail mit dem angegebenen Fett- / Größen- / Farb- / Unterstreichungs-Textformat in Excel?
- Wie sende ich E-Mails ohne Outlook in Excel?
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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!