Τρόπος μαζικής αντιγραφής όλων των γραφημάτων από ένα βιβλίο εργασίας του Excel σε ένα Outlook Outlook

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

Ίσως έχετε δημιουργήσει μια στοίβα γραφημάτων για τα στατιστικά στοιχεία σε ένα βιβλίο εργασίας του Excel. Και αργότερα, θα θέλατε να χρησιμοποιήσετε πλήρως αυτά τα γραφήματα για να δημιουργήσετε μια νέα αλληλογραφία του Outlook. Φυσικά, μπορείτε να επιλέξετε να τα αντιγράψετε στο email ένα προς ένα με μη αυτόματο τρόπο. Ωστόσο, είναι αρκετά ενοχλητικό. Επομένως, στα ακόλουθα, θα μοιραστούμε έναν πολύ πιο εύχρηστο τρόπο μαζί σας. Μπορεί να σας βοηθήσει να το συνειδητοποιήσετε απλά με ένα κλικ. Τώρα διαβάστε για να το πάρετε αναλυτικά.

Μαζική αντιγραφή όλων των γραφημάτων από ένα βιβλίο εργασίας του Excel σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook

1. Για αρχή, ανοίξτε το συγκεκριμένο βιβλίο εργασίας του Excel.
2. Στη συνέχεια, πατήστε "Alt + F11" για πρόσβαση στον επεξεργαστή Excel VBA.
3. Στο νέο παράθυρο, προσθέστε τις επιλογές "MS Outlook Object Library" και "MS Word Object Library". Τα βήματα είναι παρόμοια με αυτά που παρουσιάζονται στο άρθρο – "Πώς να προσθέσετε μια αναφορά βιβλιοθήκης αντικειμένων σε VBA".
4. Μετά από αυτό, τοποθετήστε τον ακόλουθο κώδικα VBA στο έργο "ThisWorkbook".

Sub CopyAllChartsToOutlookEmail()
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objSheet As Excel.Worksheet
    Dim objChart As Excel.ChartObject
 
    'Get Outlook Application
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
 'Create an Outlook Email
 Set objMail = objOutlookApp.CreateItem(olMailItem)
 objMail.Display
 Set objMailDocument = objMail.GetInspector.WordEditor
 
 'Copy All Charts from Each Sheet to the New Email
 For Each objSheet In ActiveWorkbook.Worksheets
 For Each objChart In objSheet.ChartObjects
 objChart.Copy
 objMailDocument.Range(0, 0).Paste
 Next
 Next
End Sub

5. Μετά από αυτό, πατήστε το κουμπί "F5" ή κάντε κλικ στο εικονίδιο "Εκτέλεση" στη γραμμή εργαλείων για να εκτελέσετε τη μακροεντολή.
6. Στη συνέχεια, θα εμφανιστεί ένα μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook με μια αναδυόμενη προειδοποίηση, που φαίνεται στην παρακάτω εικόνα.
7. Όταν επιλέγετε και κάνετε κλικ στο κουμπί "Να επιτρέπεται", όλα τα γραφήματα στο βιβλίο εργασίας του Excel προέλευσης θα αντιγραφούν σε αυτό το μήνυμα αμέσως.

Προστατέψτε το Outlook από όλους τους κινδύνους

Όπως όλοι γνωρίζουμε, πολλές απειλές περιβάλλουν τα δεδομένα μας, συμπεριλαμβανομένων φυσικά των αρχείων δεδομένων του Outlook. Επίσης, κανείς δεν είναι απρόθυμος να υποφέρει από διαφθορά του Outlook. Έτσι, κάθε χρήστης του Outlook πρέπει να κάνει ενέργειες για να προστατεύσει το Outlook του από κάθε είδους πιθανούς κινδύνους. Για να είμαστε συγκεκριμένοι, οι χρήστες πρέπει να δημιουργούν αντίγραφα ασφαλείας των δεδομένων του Outlook σε τακτική βάση, κάτι που μπορεί να διευκολύνει Ανάκτηση του Outlook πολύ. Επιπλέον, καλύτερα να αποκτήσετε ένα ισχυρό εργαλείο επιδιόρθωσης PST, όπως π.χ DataNumen Outlook Repair.

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

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