Hur man kopierar alla diagram från en Excel-arbetsbok till en Outlook-e-post

Outlook-lösningar September 29, 2025

Om du snabbt vill kopiera alla diagram från varje kalkylblad i en Excel-arbetsbok till ett Outlook-e-postmeddelande kan du använda metoden som exponeras i den här artikeln. Det kan hjälpa dig att få det på en gång.

Du kanske har skapat en stapel diagram för statistiken i en Excel-arbetsbok. Och senare vill du utnyttja dessa diagram till fullo för att skapa en ny Outlook-e-post. Naturligtvis kan du välja att kopiera dem till e-postmeddelandet manuellt. Ändå är det ganska besvärligt. Därför kommer vi i det följande att dela ett mycket trevligare sätt med dig. Det kan hjälpa dig att inse det helt enkelt med ett klick. Läs vidare för att få det i detalj.

Partikopiera alla diagram från en Excel-arbetsbok till en Outlook-e-post

  1. Till att börja med, öppna den specifika Excel-arbetsboken.Öppna specifik Excel-arbetsbok
  2. Tryck sedan på "Alt + F11" för att komma åt Excel VBA-redigeraren.
  3. I det nya fönstret lägger du till "MS Outlook Object Library" och "MS Word Object Library". Stegen liknar de som presenteras i artikeln – "Hur man lägger till en objektbiblioteksreferens i VBA".Lägg till Outlook- och Word-objektbibliotek
  4. Därefter sätter du följande VBA-kod i projektet "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

VBA-kod - Batchkopiera alla diagram från en Excel-arbetsbok till en Outlook-e-post

  1. Tryck därefter på tangenten "F5" eller klicka på ikonen "Kör" i verktygsfältet för att köra makrot.
  2. Därefter visas ett e-postmeddelande i Outlook med en popup-varning som visas som följande bild.Varning i Outlook-e-post
  3. När du väljer och klickar på knappen "Tillåt" kopieras alla diagram i Excel-arbetsboken till det här meddelandet på en gång.E-post med kopierade diagram

Skydda Outlook från alla risker

Som vi alla vet finns det många hot kring våra data, naturligtvis inklusive våra Outlook-datafiler. Dessutom är ingen ovillig att utsättas för korruption i Outlook. Således måste varje Outlook-användare göra åtgärder för att skydda sin Outlook från alla möjliga risker. För att vara specifik måste användarna säkerhetskopiera Outlook-data regelbundet, vilket kan underlätta Outlook-återställning mycket. Dessutom skulle du bättre få tag i ett kraftfullt PST-fixverktyg, till exempel DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive korrupt sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.