Hvordan batchkopiere alle diagrammer fra en Excel-arbeidsbok til en Outlook-e-post

Hvis du raskt vil kopiere alle diagrammer fra hvert regneark i en Excel-arbeidsbok til en Outlook-e-post, kan du bruke metoden som vises i denne artikkelen. Det kan hjelpe deg med å få det på én gang.

Kanskje du har laget en stabel med diagrammer for statistikken i en Excel-arbeidsbok. Og senere vil du gjøre full bruk av disse diagrammene for å lage en ny Outlook-post. Selvfølgelig kan du velge å kopiere dem til e-posten én etter én manuelt. Likevel er det ganske plagsomt. Derfor vil vi i det følgende dele en mye mer praktisk måte med deg. Det kan hjelpe deg med å innse det ganske enkelt via et klikk. Les nå for å få det i detalj.

Batchkopier alle diagrammer fra en Excel-arbeidsbok til en Outlook-e-post

1. For somtart, åpne den spesifikke Excel-arbeidsboken.
2. Trykk deretter "Alt + F11" for å få tilgang til Excel VBA-editor.
3. I det nye vinduet legger du til "MS Outlook Object Library" og "MS Word Object Library". Trinnene ligner på det som er introdusert i artikkelen - "Hvordan legge til et objekt Library Referanse i VBA".
4. Etter det, legg følgende VBA-kode inn i "ThisWorkbook" -prosjektet.

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. Trykk deretter på "F5"-tasten eller klikk på "Kjør"-ikonet i verktøylinjen for å kjøre makroen.
6. Deretter vil en Outlook-e-post vises med en popup-advarsel, vist som følgende bilde.
7. Når du velger og klikker på "Tillat"-knappen, vil alle diagrammene i Excel-kildearbeidsboken bli kopiert til denne e-posten samtidig.

Beskytt Outlook mot alle risikoer

Som vi alle vet, er det mange trusler rundt dataene våre, selvfølgelig inkludert Outlook-datafilene våre. Dessuten er ingen motvillige til å lide Outlook-korrupsjon. Dermed må hver Outlook-bruker gjøre handlinger for å beskytte Outlook mot alle slags potensielle risikoer. For å være spesifikk, må brukere sikkerhetskopiere Outlook-data med jevne mellomrom, noe som kan lette Outlook gjenoppretting mye. Dessuten bør du få tak i et potent PST-fikseringsverktøy, for eksempel DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert korrupt sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med