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 = "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 Betreff der E-Mail .To = "xrr@163.com" 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?
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
