Kopieren aller Diagramme aus einer Excel-Arbeitsmappe in eine Outlook-E-Mail

Wenn Sie schnell alle Diagramme aus jedem Arbeitsblatt in einer Excel-Arbeitsmappe in eine Outlook-E-Mail kopieren möchten, können Sie die in diesem Artikel beschriebene Methode verwenden. Es kann Ihnen helfen, es auf einmal zu bekommen.

Möglicherweise haben Sie einen Stapel von Diagrammen für die Statistiken in einer Excel-Arbeitsmappe erstellt. Und später möchten Sie diese Diagramme vollständig nutzen, um eine neue Outlook-E-Mail zu erstellen. Natürlich können Sie sie auch einzeln manuell in die E-Mail kopieren. Es ist jedoch ziemlich mühsam. Daher werden wir im Folgenden einen viel handlicheren Weg mit Ihnen teilen. Es kann Ihnen helfen, dies einfach per Klick zu realisieren. Lesen Sie jetzt weiter, um es im Detail zu bekommen.

Kopieren Sie alle Diagramme im Stapel von einer Excel-Arbeitsmappe in eine Outlook-E-Mail

1. Öffnen Sie zunächst die entsprechende Excel-Arbeitsmappe.
2. Drücken Sie dann „Alt + F11“, um auf den Excel VBA-Editor zuzugreifen.
3. Fügen Sie im neuen Fenster „MS Outlook-Objektbibliothek“ und „MS Word-Objektbibliothek“ hinzu. Die Schritte ähneln denen, die im Artikel beschrieben werden – „Wie man in VBA einen Objektbibliotheksverweis hinzufügt".
4. Fügen Sie anschließend den folgenden VBA-Code in das Projekt „ThisWorkbook“ ein.

Sub CopyAllChartsToOutlookEmail()
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objSheet As Excel.Worksheet
    Dim objChart As Excel.ChartObject
 
    'Get Outlook Application
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
 'Create an Outlook Email
 Set objMail = objOutlookApp.CreateItem(olMailItem)
 objMail.Display
 Set objMailDocument = objMail.GetInspector.WordEditor
 
 'Copy All Charts from Each Sheet to the New Email
 For Each objSheet In ActiveWorkbook.Worksheets
 For Each objChart In objSheet.ChartObjects
 objChart.Copy
 objMailDocument.Range(0, 0).Paste
 Next
 Next
End Sub

5. Tippen Sie anschließend auf die Schaltfläche „F5“ oder klicken Sie in der Symbolleiste auf das Symbol „Ausführen“, um das Makro auszuführen.
6. Anschließend wird eine Outlook-E-Mail mit einer Popup-Warnung angezeigt, die im folgenden Bild dargestellt ist.
7. Wenn Sie die Schaltfläche "Zulassen" auswählen und darauf klicken, werden alle Diagramme in der Excel-Quellarbeitsmappe sofort in diese E-Mail kopiert.

Schützen Sie den Ausblick vor allen Risiken

Wie wir alle wissen, sind unsere Daten von zahlreichen Bedrohungen umgeben, natürlich auch von unseren Outlook-Datendateien. Außerdem zögert niemand, Outlook-Korruption zu erleiden. Daher muss jeder Outlook-Benutzer Maßnahmen ergreifen, um sein Outlook vor allen möglichen Risiken zu schützen. Um genau zu sein, müssen Benutzer regelmäßig Outlook-Daten sichern, was die Arbeit erleichtern kann Outlook-Wiederherstellung viel. Darüber hinaus sollten Sie sich ein leistungsfähiges PST-Fix-Tool zulegen, z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korrupte SQL und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX