Kuidas kopeerida kõik diagrammid Exceli töövihikust Outlooki meili

Outlooki lahendused September 29, 2025

Kui soovite Exceli töövihiku igalt töölehelt kõik diagrammid kiiresti Outlooki meili kopeerida, saate kasutada selles artiklis kirjeldatud meetodit. See võib aidata teil selle ühe korraga hankida.

Võib-olla olete loonud Exceli töövihiku statistika jaoks diagrammide virna. Ja hiljem soovite neid diagramme täielikult ära kasutada uue Outlooki meili loomiseks. Loomulikult saate need ükshaaval käsitsi kopeerida. Siiski on see üsna tülikas. Seetõttu jagame järgnevalt teiega palju käepärasemat viisi. See võib aidata teil seda mõista ühe klõpsuga. Nüüd lugege edasi, et seda üksikasjalikult saada.

Kopeerige kõik diagrammid Exceli töövihikust Outlooki meili

  1. Alustuseks avage konkreetne Exceli töövihik.Avage konkreetne Exceli töövihik
  2. Seejärel vajutage Exceli VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
  3. Lisa uues aknas „MS Outlook Object Library” ja „MS Word Object Library”. Toimingud on sarnased artiklis kirjeldatuga – „Kuidas lisada VBA-s objektiteegi viidet".Outlooki ja Wordi objektiteeki lisamine
  4. Pärast seda sisestage projekti "ThisWorkbook" järgmine VBA kood.
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 kood – kõigi diagrammide pakkkopeerimine Exceli töövihikust Outlooki meili

  1. Pärast seda puudutage makro käivitamiseks nuppu "F5" või klõpsake tööriistaribal ikooni "Käivita".
  2. Seejärel kuvatakse Outlooki meil koos hüpikakna hoiatusega, mis on näidatud järgmisel pildil.Hoiatus Outlooki meilis
  3. Kui valite ja klõpsate nupul „Luba”, kopeeritakse kõik Exceli lähtetöövihiku diagrammid sellesse kirja korraga.Kopeeritud diagrammidega meil

Kaitske väljavaadet kõigi riskide eest

Nagu me kõik teame, ümbritseb meie andmeid palju ohte, sealhulgas loomulikult Outlooki andmefaile. Samuti ei ole keegi vastumeelselt Outlooki korruptsiooni pärast. Seega peab iga Outlooki kasutaja tegema toiminguid, et kaitsta oma Outlooki igasuguste võimalike riskide eest. Täpsemalt peavad kasutajad Outlooki andmeid regulaarselt varundama, mis võib hõlbustada Outlooki taastamine palju. Lisaks on parem hankida võimas PST-parandustööriist, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.