Ako dávkové kopírovanie všetkých grafov zo zošita programu Excel do e-mailu programu Outlook

Ak chcete rýchlo skopírovať všetky grafy z každého pracovného hárka v zošite programu Excel do e-mailu programu Outlook, môžete použiť metódu uvedenú v tomto článku. Môže vám pomôcť dostať ho na jeden pokus.

Možno ste vytvorili zošit v grafe štatistík v zošite programu Excel. A neskôr by ste chceli tieto grafy naplno využiť na vytvorenie novej pošty programu Outlook. Môžete sa samozrejme rozhodnúť, že ich po jednom skopírujete do e-mailu ručne. Je to však dosť nepríjemné. Preto sa s vami v nasledujúcich rozhovoroch podelíme o oveľa šikovnejší spôsob. Môže vám to pomôcť uvedomiť si to jednoducho kliknutím. Teraz si prečítajte ďalšie informácie.

Dávkové kopírovanie všetkých grafov zo zošita programu Excel do e-mailu programu Outlook

1. Na začiatok otvorte konkrétny zošit programu Excel.
2. Potom stlačte kombináciu klávesov „Alt + F11“ a otvorte editor Excel VBA.
3. V novom okne pridajte „Knižnica objektov MS Outlook“ a „Knižnica objektov MS Word“. Kroky sú podobné tým, ktoré sú uvedené v článku – „Ako pridať odkaz na knižnicu objektov vo VBA".
4. Potom vložte do projektu „ThisWorkbook“ nasledujúci kód VBA.

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. Potom klepnite na kľúčové tlačidlo „F5“ alebo kliknite na ikonu „Spustiť“ na paneli nástrojov a spustite makro.
6. Následne sa zobrazí e-mail programu Outlook s upozornením na vyskakovacie okno, ktoré sa zobrazuje ako nasledujúci obrázok.
7. Keď vyberiete a kliknete na tlačidlo „Povoliť“, všetky grafy v zdrojovom zošite programu Excel sa skopírujú do tejto pošty naraz.

Chráňte výhľad pred všetkými rizikami

Ako všetci vieme, okolo našich dát je veľa hrozieb, samozrejme vrátane našich dátových súborov Outlooku. Tiež sa nikto zdráha trpieť korupciou v programe Outlook. Každý užívateľ Outlooku musí preto podniknúť kroky na ochranu svojho Outlooku pred všetkými druhmi potenciálnych rizík. Konkrétne musia používatelia pravidelne zálohovať údaje Outlooku, čo im uľahčí Obnova programu Outlook veľa. Navyše by ste sa mali chopiť silného nástroja na opravu PST, ako je napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skorumpovaný sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S