Kaikkien kaavioiden eräkopiointi Excel-työkirjasta Outlook-sähköpostiin

Jos haluat kopioida kaikki kaaviot jokaisesta Excel-työkirjan laskentataulukosta Outlook-sähköpostiin, voit käyttää tässä artikkelissa näkyvää menetelmää. Se voi auttaa sinua saamaan sen yhdellä kertaa.

Ehkä olet luonut pino kaavioita tilastoja varten Excel-työkirjassa. Ja myöhemmin haluat käyttää näitä kaavioita täysimääräisesti uuden Outlook-postin luomiseen. Tietenkin voit halutessasi kopioida ne sähköpostiin yksitellen manuaalisesti. Silti se on melko hankala. Siksi jaamme seuraavassa paljon kätevämmän tavan kanssasi. Se voi auttaa sinua ymmärtämään sen yksinkertaisesti napsautuksella. Lue nyt saadaksesi sen yksityiskohtaisesti.

Eräkopioi kaikki kaaviot Excel-työkirjasta Outlook-sähköpostiin

1. Aloita avaamalla kyseinen Excel-työkirja.
2. Paina sitten “Alt + F11” päästäksesi Excel VBA -editoriin.
3. Lisää uuteen ikkunaan ”MS Outlook Object Library” ja ”MS Word Object Library”. Toimenpiteet ovat samanlaiset kuin artikkelissa esitellyt – ”Objektikirjastoviittauksen lisääminen VBA:ssa".
4. Tämän jälkeen laita seuraava VBA-koodi “ThisWorkbook” -projektiin.

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. Napauta sen jälkeen F5-näppäinpainiketta tai napsauta työkalupalkin Suorita-kuvaketta makron suorittamiseksi.
6. Tämän jälkeen Outlook-sähköposti näyttää ponnahdusvaroituksen, joka näkyy seuraavana kuvana.
7. Kun valitset ja napsautat "Salli" -painiketta, kaikki lähdekoodin Excel-työkirjan kaaviot kopioidaan tähän viestiin kerralla.

Suojaa näkymät kaikilta riskeiltä

Kuten me kaikki tiedämme, tietojemme ympärillä on paljon uhkia, tietysti myös Outlook-tiedostot. Kukaan ei myöskään halua kärsiä Outlook-korruptiosta. Jokaisen Outlook-käyttäjän on siis tehtävä toimia suojaamaan Outlookia kaikenlaisilta mahdollisilta riskeiltä. Tarkemmin sanottuna käyttäjien on varmuuskopioitava Outlook-tiedot säännöllisesti, mikä voi helpottaa Outlook-palautus paljon. Lisäksi sinun on parasta saada käsiinsä tehokas PST-korjaustyökalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korruptoitunut sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com