2 γρήγοροι τρόποι αντιγραφής όλων των εικόνων από ένα φύλλο εργασίας του Excel σε ένα Outlook email

Μερικές φορές, ίσως χρειαστεί να αντιγράψετε όλες τις ενσωματωμένες εικόνες σε ένα φύλλο εργασίας του Excel σε ένα email του Outlook. Προς το παρόν, μπορείτε να διαβάσετε αυτό το άρθρο. Εδώ θα σας παρουσιάσουμε 2 γρήγορες μεθόδους.

Είναι εύκολο να αντιγράψετε μια εικόνα από ένα φύλλο εργασίας του Excel σε ένα email του Outlook. Μπορείτε απλά να επιλέξετε και να πατήσετε "Ctrl + C" για να αντιγράψετε αυτήν την εικόνα. Ωστόσο, εάν υπάρχουν πολλές εικόνες για αντιγραφή, η αντιγραφή μία προς μία είναι αναμφίβολα ένας ανόητος και κουραστικός τρόπος. Ως εκ τούτου, εδώ θα σας παρουσιάσουμε 2 πολύ πιο αποτελεσματικούς τρόπους. Τώρα διαβάστε για να τα δείτε αναλυτικά.

Μέθοδος 1: Επιλέξτε και αντιγράψτε όλες τις εικόνες στο φύλλο εργασίας του Excel με μη αυτόματο τρόπο

1. Για αρχή, ανοίξτε το συγκεκριμένο φύλλο εργασίας του Excel.
2. Στη συνέχεια, πατήστε το πλήκτρο "F5".
3. Στο αναδυόμενο παράθυρο διαλόγου "Μετάβαση σε", κάντε κλικ στο κουμπί "Ειδικό".
4. Στη συνέχεια, στο νέο παράθυρο διαλόγου "Μετάβαση σε ειδικό", επιλέξτε "Αντικείμενα" και κάντε κλικ στο "OK".
5. Έχουν επιλεγεί όλες οι ενσωματωμένες εικόνες.
6. Τώρα, πατήστε "Ctrl + C" για να αντιγράψετε όλες τις επιλεγμένες εικόνες.
7. Μετά από αυτό, ξεκινήστε το Outlook και δημιουργήστε ένα νέο email.
8. Αργότερα, τοποθετήστε τον κέρσορα στο σώμα του μηνύματος και πατήστε "Ctrl + V".
9. Αμέσως, όλες οι αντιγραμμένες εικόνες θα επικολληθούν στο σώμα του email, όπως το παρακάτω σχήμα.

Μέθοδος 2: Αντιγραφή όλων των εικόνων από το φύλλο εργασίας στο ηλεκτρονικό ταχυδρομείο με VBA

1. Αρχικά, στο Excel, πατήστε "Alt + F11" για να ενεργοποιήσετε τον επεξεργαστή VBA του Excel.
2. Στη συνέχεια, τοποθετήστε τον παρακάτω κώδικα VBA σε μια ενότητα ή έργο.

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. Στη συνέχεια, πατήστε το πλήκτρο "F5" στην τρέχουσα μακροεντολή.
4. Αμέσως, θα εμφανιστεί ένα νέο email.
5. Εδώ ενδέχεται να λάβετε μια προειδοποίηση, στην οποία θα πρέπει να κάνετε κλικ στο "Να επιτρέπεται".
6. Τελικά, όλες οι εικόνες στο συγκεκριμένο φύλλο εργασίας του Excel θα βρίσκονται στο σώμα του email, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Αναζητήστε όλους τους κινδύνους γύρω από το Outlook

Το Outlook είναι ευάλωτο σε διαφθορά, καθώς υπάρχουν πάρα πολλές απειλές γύρω από αυτό, όπως ιούς, αστοχία συστήματος, σφάλματα υλικού και ζητήματα τροφοδοσίας και ούτω καθεξής. Ως εκ τούτου, είναι απαραίτητο να προσέχετε όλους αυτούς τους επικίνδυνους παράγοντες. Πρώτα απ 'όλα, δεν πρέπει ποτέ να εμπιστεύεστε εύκολα τα email από άγνωστους αποστολείς. Εκτός αυτού, καλύτερα να συνεχίζετε να δημιουργείτε αντίγραφα ασφαλείας του αρχείου σας Outlook περιοδικά. Τελευταίο αλλά όχι λιγότερο σημαντικό, για να επιδιορθώστε το PST αρχείο εγκαίρως, πρέπει να προετοιμάσετε ένα προηγμένο εργαλείο επισκευής, όπως DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com