Come copiare in batch tutti i grafici da una cartella di lavoro di Excel a un'e-mail di Outlook

Se desideri copiare rapidamente tutti i grafici da ogni foglio di lavoro in una cartella di lavoro di Excel in un messaggio di posta elettronica di Outlook, puoi utilizzare il metodo esposto in questo articolo. Può aiutarti a ottenerlo in una volta sola.

Forse hai creato una pila di grafici per le statistiche in una cartella di lavoro di Excel. E in seguito, vorresti sfruttare appieno questi grafici per creare una nuova posta di Outlook. Naturalmente, puoi scegliere di copiarli nell'e-mail uno per uno manualmente. Tuttavia, è abbastanza fastidioso. Pertanto, di seguito condivideremo con voi un modo molto più pratico. Può aiutarti a rendertene conto semplicemente con un clic. Ora continua a leggere per ottenerlo in dettaglio.

Copia in batch tutti i grafici da una cartella di lavoro di Excel a un'e-mail di Outlook

1. Per iniziare, apri la cartella di lavoro Excel specifica.
2. Quindi, premi "Alt + F11" per accedere all'editor VBA di Excel.
3. Nella nuova finestra, aggiungi “MS Outlook Object Library” e “MS Word Object Library”. I passaggi sono simili a quelli introdotti nell’articolo: “Come aggiungere un riferimento a una libreria di oggetti in VBA".
4. Successivamente, inserisci il seguente codice VBA nel progetto "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. Successivamente, tocca il pulsante "F5" o fai clic sull'icona "Esegui" nella barra degli strumenti per eseguire la macro.
6. Successivamente, verrà visualizzata un'e-mail di Outlook con un avviso popup, mostrato come l'immagine seguente.
7. Quando selezioni e fai clic sul pulsante "Consenti", tutti i grafici nella cartella di lavoro di Excel di origine verranno copiati in questa posta contemporaneamente.

Proteggi Outlook da tutti i rischi

Come tutti sappiamo, molte minacce circondano i nostri dati, inclusi ovviamente i nostri file di dati di Outlook. Inoltre, nessuno è riluttante a subire la corruzione di Outlook. Pertanto, ogni utente di Outlook deve intraprendere azioni per salvaguardare il proprio Outlook da tutti i tipi di potenziali rischi. Per essere precisi, gli utenti devono eseguire regolarmente il backup dei dati di Outlook, il che può facilitare Recupero di Outlook molto. Inoltre, faresti meglio a procurarti un potente strumento di correzione PST, come ad esempio DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui sql corrotto e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com