Soms wilt u, in plaats van het Excel-werkblad naar de hoofdtekst van een e-mail te kopiëren, de schermafbeelding van het werkblad invoegen. Dit artikel laat dus 2 methoden zien om het te krijgen.
Veel gebruikers willen een schermafbeelding van een specifiek Excel-werkblad exporteren en de schermafbeelding vervolgens in de berichttekst van een Outlook-e-mail invoegen. Alleen in de schermafbeelding kunnen de celwaarden niet worden gewijzigd. En de schermafbeelding kan zelfs worden bekeken als de ontvangers MS Excel niet op hun computers installeren.
Dit kan op 2 manieren gerealiseerd worden. De eerste is de ingebouwde functie – “Insert” > “Screenshot”, die uitgebreid wordt geïntroduceerd in de volgende Methode 1. En de tweede gebruikt een beetje scripting, zoals weergegeven in Methode 2. Lees nu verder krijg ze gedetailleerd.
Methode 1: Schermafbeelding van Excel-venster invoegen
- Open eerst het Excel-werkblad dat u in de e-mail wilt invoegen.
- Start vervolgens Outlook en maak een nieuwe e-mail.
- Ga vervolgens in het berichtvenster naar het tabblad "Invoegen".
- Klik vervolgens op de knop “Screenshot”.
- Selecteer in de lijst "Beschikbare Windows" de schermafbeelding van het Excel-werkblad.
- De schermafbeelding van het Excel-werkblad wordt meteen ingevoegd.
- Nu kunt u de schermafbeelding naar wens bijsnijden.
Methode 2: Kopieer de schermafbeelding van Excel-werkblad met VBA
- Open vanaf het begin het Excel-bestand.
- Druk vervolgens op "Alt + F11" om de Excel VBA-editor te activeren.
- Voeg vervolgens de verwijzing naar “MS Outlook Object Library” en “MS Word Object Library” toe volgens “Hoe voeg je een verwijzing naar een objectbibliotheek toe in VBA?'.
- Kopieer daarna de volgende VBA-code naar een project of module.
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
- Druk later op "F5" om deze macro uit te voeren.
- Er wordt onmiddellijk een nieuwe e-mail weergegeven.
- Klik in het kleine dialoogvenster op de knop "Toestaan".
- Ten slotte wordt de schermafbeelding van het Excel-werkblad in de hoofdtekst van de e-mail ingevoegd.
Wanneer u geconfronteerd wordt met schade aan Outlook-bestanden
Als u per ongeluk met een virus geïnfecteerde bijlagen downloadt, is de kans groot dat uw Outlook-bestand wordt aangevallen en daardoor in gevaar komt. In een dergelijke situatie moet u eerst antivirussoftware gebruiken om de virussen te doden. Daarna moet u investeren in een robuust reparatiehulpprogramma van derden, zoals DataNumen Outlook Repair, welke kan reparatie PST bestand zonder te zweten.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com