Parfois, au lieu de copier la feuille de calcul Excel dans le corps d'un e-mail, vous pouvez insérer la capture d'écran de la feuille de calcul. Ainsi, cet article montrera 2 méthodes pour l'obtenir.
De nombreux utilisateurs souhaitent exporter une capture d'écran d'une feuille de calcul Excel spécifique, puis insérer la capture d'écran dans le corps du message d'un e-mail Outlook. Uniquement dans la capture d'écran, les valeurs des cellules ne peuvent pas être modifiées. Et la capture d'écran peut être visualisée même si les destinataires n'installent pas MS Excel sur leurs ordinateurs.
Ceci peut être réalisé par 2 moyens. Le premier est par la fonctionnalité intégrée - "Insérer"> "Capture d'écran", qui est minutieusement introduite dans la méthode 1 suivante. Et la seconde utilise un peu de script, comme indiqué dans la méthode 2. Maintenant, lisez la suite pour les obtenir en détail.
Méthode 1 : Insérer une capture d'écran de la fenêtre Excel
- Tout d'abord, ouvrez la feuille de calcul Excel que vous souhaitez insérer dans le courrier électronique.
- Ensuite, lancez Outlook et créez un nouvel e-mail.
- Ensuite, dans la fenêtre Message, passez à l'onglet "Insérer".
- Ensuite, cliquez sur le bouton "Capture d'écran".
- Dans la liste "Windows disponibles", sélectionnez la capture d'écran de la feuille de calcul Excel.
- Immédiatement, la capture d'écran de la feuille de calcul Excel sera insérée.
- Maintenant, vous pouvez recadrer la capture d'écran à volonté.
Méthode 2 : copier la capture d'écran de la feuille de calcul Excel avec VBA
- Au tout début, ouvrez le fichier Excel.
- Ensuite, appuyez sur "Alt + F11" pour lancer l'éditeur Excel VBA.
- Ensuite, ajoutez la référence à « MS Outlook Object Library » et à « MS Word Object Library » conformément à « Comment ajouter une référence à une bibliothèque d'objets en VBA" .
- Après cela, copiez le code VBA suivant dans un projet ou un 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
- Plus tard, appuyez sur "F5" pour exécuter cette macro.
- Immédiatement, un nouvel e-mail s'affichera.
- Dans la petite boîte de dialogue, cliquez sur le bouton "Autoriser".
- Enfin, la capture d'écran de la feuille de calcul Excel sera insérée dans le corps du courrier.
Lorsque vous faites face à des dommages de fichiers Outlook
Si vous téléchargez accidentellement des pièces jointes infectées par un virus, votre fichier Outlook est très susceptible d'être attaqué et ainsi compromis. Dans une telle situation, vous devez d'abord exécuter un logiciel antivirus pour tuer les virus. Ensuite, vous devez investir dans un utilitaire de réparation tiers robuste, tel que DataNumen Outlook Repair, Qui peut réparer la TVP fichier sans transpirer.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com