Anstatt das Excel-Arbeitsblatt in den Text einer E-Mail zu kopieren, möchten Sie manchmal den Screenshot des Arbeitsblatts einfügen. Daher zeigt dieser Artikel zwei Methoden, um es zu bekommen.
Viele Benutzer möchten einen Screenshot eines bestimmten Excel-Arbeitsblatts exportieren und den Screenshot dann in den Nachrichtentext einer Outlook-E-Mail einfügen. Nur im Screenshot können die Zellenwerte nicht geändert werden. Der Screenshot kann auch dann angezeigt werden, wenn die Empfänger MS Excel nicht auf ihren Computern installieren.
Dies kann auf zwei Arten realisiert werden. Die erste ist die eingebaute Funktion - "Einfügen"> "Screenshot", die in der folgenden Methode 2 ausführlich vorgestellt wird. Die zweite verwendet ein bisschen Skripting, wie in Methode 1 gezeigt. Lesen Sie nun weiter Holen Sie sie im Detail.
Methode 1: Screenshot des Excel-Fensters einfügen
- Öffnen Sie zunächst das Excel-Arbeitsblatt, das Sie in eine E-Mail einfügen möchten.
- Starten Sie dann Outlook und erstellen Sie eine neue E-Mail.
- Wechseln Sie anschließend im Nachrichtenfenster zur Registerkarte „Einfügen“.
- Klicken Sie anschließend auf die Schaltfläche "Screenshot".
- Wählen Sie in der Liste "Verfügbares Windows" den Screenshot des Excel-Arbeitsblatts aus.
- Sofort wird der Screenshot des Excel-Arbeitsblatts eingefügt.
- Jetzt können Sie den Screenshot nach Belieben zuschneiden.
Methode 2: Kopieren Sie den Screenshot des Excel-Arbeitsblatts mit VBA
- Öffnen Sie gleich zu Beginn die Excel-Datei.
- Drücken Sie dann „Alt + F11“, um den Excel VBA-Editor auszulösen.
- Fügen Sie anschließend die Verweise auf „MS Outlook Object Library“ und „MS Word Object Library“ gemäß „Wie man in VBA einen Objektbibliotheksverweis hinzufügt".
- Kopieren Sie anschließend den folgenden VBA-Code in ein Projekt oder Modul.
Sub ExportInsert_ScreenshotOfSheet_Mail()
Dim objSheet As Excel.Worksheet
Dim objUsedRange As Excel.Range
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.document
'Change "Sheets(1)" to the specific worksheet number
Set objSheet = ActiveWorkbook.Sheets(1)
Set objUsedRange = objSheet.UsedRange
'Copy the screenshot of the sheet
objUsedRange.CopyPicture xlScreen, xlPicture
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
'Paste the copied screenshot
objMailDocument.Range(0, 0).Paste
End Sub
- Drücken Sie später "F5", um dieses Makro auszuführen.
- Sofort wird eine neue E-Mail angezeigt.
- Klicken Sie im kleinen Dialogfeld auf die Schaltfläche "Zulassen".
- Zuletzt wird der Screenshot des Excel-Arbeitsblatts in den E-Mail-Text eingefügt.
Bei der Konfrontation mit Schäden an Outlook-Dateien
Wenn Sie versehentlich mit Viren infizierte Anhänge herunterladen, wird Ihre Outlook-Datei sehr wahrscheinlich angegriffen und dadurch gefährdet. In einer solchen Situation müssen Sie zuerst eine Antivirensoftware ausführen, um die Viren abzutöten. Anschließend müssen Sie in ein robustes Reparaturdienstprogramm eines Drittanbieters investieren, z DataNumen Outlook Repair, Denen PST reparieren Datei, ohne ins Schwitzen zu geraten.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf wiederherstellen und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX