2 façons rapides de copier toutes les images d'une feuille de calcul Excel vers un e-mail Outlook

Parfois, vous devrez peut-être copier toutes les images incorporées dans une feuille de calcul Excel dans un e-mail Outlook. En ce moment, vous pouvez lire cet article. Ici, nous allons vous présenter 2 méthodes rapides.

Il est facile de copier une image d'une feuille de calcul Excel vers un e-mail Outlook. Vous pouvez simplement sélectionner et appuyer sur "Ctrl + C" pour copier cette image. Pourtant, s'il y a beaucoup d'images à copier, copier une par une est sans aucun doute une méthode stupide et fastidieuse. Par conséquent, nous vous présenterons ici 2 méthodes beaucoup plus efficaces. Maintenant, lisez la suite pour les obtenir en détail.

Méthode 1 : Sélectionner et copier manuellement toutes les images dans la feuille de calcul Excel

1. Pour commencer, ouvrez la feuille de calcul Excel concernée.
2. Ensuite, appuyez sur la touche "F5".
3. Dans la boîte de dialogue contextuelle "Aller à", cliquez sur le bouton "Spécial".
4. Ensuite, dans la nouvelle boîte de dialogue "Aller à Spécial", sélectionnez "Objets" et cliquez sur "OK".
5. En même temps, toutes les images intégrées ont été sélectionnées.
6. Maintenant, appuyez sur "Ctrl + C" pour copier toutes les images sélectionnées.
7. Après cela, lancez Outlook et créez un nouvel e-mail.
8. Plus tard, placez le curseur dans le corps du message et appuyez sur "Ctrl + V".
9. Immédiatement, toutes les images copiées seront collées dans le corps de l'e-mail, comme dans la figure suivante.

Méthode 2 : copier toutes les images de la feuille de calcul vers un e-mail avec VBA

1. Pour commencer, dans Excel, appuyez sur « Alt + F11 » pour lancer l'éditeur VBA d'Excel.
2. Ensuite, placez le code VBA ci-dessous dans un module ou un projet.

Sub CopyImagesToMail()
    Dim objWorksheet As Excel.Worksheet
    Dim objOutlookApp As Object
    Dim objMail As Object
    Dim objMailDocument As Object
    Dim objShape As Excel.Shape
 
    'Get the specific worksheet
    Set objWorksheet = ThisWorkbook.Worksheets(1)
 
    'Create a new email
    Set objOutlookApp = CreateObject("Outlook.application")
    Set objMail = objOutlookApp.CreateItem(objOutlookAppobjMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
 
    'Copy images to the email
    For Each objShape In objWorksheet.Shapes
        objShape.Copy
        objMailDocument.Range(0, 0).Paste
    Next
End Sub

3. Ensuite, appuyez sur la touche "F5" dans la macro actuelle.
4. Aussitôt, un nouvel e-mail s'affichera.
5. Ici, vous pouvez recevoir un avertissement, dans lequel vous devez cliquer sur "Autoriser".
6. Finalement, toutes les images de la feuille de calcul Excel spécifique seront dans le corps de l'e-mail, comme indiqué dans la capture d'écran suivante.

Attention à tous les risques autour d'Outlook

Outlook est susceptible d'être corrompu en ce sens qu'il contient trop de menaces, telles que des virus, des défaillances du système, des pannes matérielles, des problèmes d'alimentation, etc. Par conséquent, il est nécessaire que vous fassiez attention à tous ces facteurs dangereux. Tout d'abord, vous ne devriez jamais faire confiance aux e-mails d'expéditeurs inconnus. En outre, vous feriez mieux de sauvegarder régulièrement votre fichier Outlook. Enfin et surtout, afin de fixer PST fichier à temps, vous devez préparer un outil de réparation de pointe, comme DataNumen Outlook Repair.

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 sql corrompu et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com