Sådan batch-kopieres alle diagrammer fra en Excel-projektmappe til en Outlook-e-mail

Hvis du hurtigt vil kopiere alle diagrammer fra hvert regneark i en Excel-projektmappe til en Outlook-e-mail, kan du bruge metoden, der er eksponeret i denne artikel. Det kan hjælpe dig med at få det på én gang.

Måske har du oprettet en stak med diagrammer til statistikken i en Excel-projektmappe. Og senere vil du gerne gøre fuld brug af disse diagrammer til at oprette en ny Outlook-mail. Selvfølgelig kan du vælge at kopiere dem til e-mailen manuelt manuelt. Alligevel er det ret besværligt. Derfor vil vi i det følgende dele en meget smukkere måde med dig. Det kan hjælpe dig med at indse det ved blot et klik. Læs nu for at få det i detaljer.

Batchkopier alle diagrammer fra en Excel-projektmappe til en Outlook-e-mail

1. For somtart, åbn den specifikke Excel-projektmappe.
2. Tryk derefter på "Alt + F11" for at få adgang til Excel VBA-editor.
3. I det nye vindue skal du tilføje “MS Outlook Object Library ”og“ MS Word Object Library ”. Trinene svarer til det, der introduceres i artiklen - “Sådan tilføjes et objekt Library Reference i VBA".
4. Derefter skal du placere følgende VBA-kode i “ThisWorkbook” -projektet.

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. Derefter skal du trykke på "F5" -tasten eller klikke på "Kør" -ikonet i værktøjslinjen for at køre makroen.
6. Derefter vises en Outlook-e-mail med en popup-advarsel, der vises som følgende billede.
7. Når du vælger og klikker på knappen "Tillad", kopieres alle diagrammerne i Excel-projektmappen på én gang.

Beskyt Outlook mod alle risici

Som vi alle ved, er der masser af trusler omkring vores data, selvfølgelig inklusive vores Outlook-datafiler. Ingen er heller ikke tilbageholdende med at lide Outlook-korruption. Således skal enhver Outlook-bruger foretage handlinger for at beskytte deres Outlook mod alle mulige potentielle risici. For at være specifik skal brugerne sikkerhedskopiere Outlook-data regelmæssigt, hvilket kan lette Outlook opsving en masse. Desuden må du hellere få fat i et kraftigt PST-fixværktøj, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder korrupt sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com