Jak dávkově zkopírovat všechny grafy ze sešitu aplikace Excel do e-mailu aplikace Outlook

Pokud chcete rychle zkopírovat všechny grafy z každého listu v sešitu aplikace Excel do e-mailu aplikace Outlook, můžete použít metodu uvedenou v tomto článku. Pomůže vám to získat jedním tahem.

Možná jste vytvořili zásobník grafů pro statistiky v sešitu aplikace Excel. A později byste chtěli tyto grafy plně využít k vytvoření nové pošty Outlook. Samozřejmě si je můžete zkopírovat do e-mailu jeden po druhém ručně. Přesto je to docela problematické. Proto se s vámi v následujícím podělíme o mnohem šikovnější způsob. To vám může pomoci uvědomit si to jednoduše kliknutím. Nyní čtěte dále, abyste to pochopili podrobně.

Dávkové kopírování všech grafů ze sešitu aplikace Excel do e-mailu aplikace Outlook

1. Pro začátek otevřete konkrétní sešit aplikace Excel.
2. Poté stiskněte „Alt + F11“ pro přístup k editoru Excel VBA.
3. V novém okně přidejte „Knihovnu objektů MS Outlook“ a „Knihovnu objektů MS Word“. Postup je podobný těm, které jsou uvedeny v článku – „Jak přidat odkaz na knihovnu objektů ve VBA".
4. Poté vložte následující kód VBA do projektu „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

5. Poté makro spusťte klepnutím na tlačítko „F5“ nebo kliknutím na ikonu „Spustit“ na panelu nástrojů.
6. Následně se zobrazí e-mail aplikace Outlook s vyskakovacím varováním, jak je znázorněno na následujícím obrázku.
7. Když vyberete a kliknete na tlačítko „Povolit“, všechny grafy ve zdrojovém excelovém sešitu budou zkopírovány do této pošty najednou.

Chraňte výhled před všemi riziky

Jak všichni víme, naše data obklopuje spousta hrozeb, samozřejmě včetně datových souborů aplikace Outlook. Nikdo se také nezdráhá trpět korupcí Outlooku. Každý uživatel aplikace Outlook tak musí provést opatření, aby ochránil svůj Outlook před všemi druhy potenciálních rizik. Abychom byli konkrétní, uživatelé musí pravidelně zálohovat data aplikace Outlook, což může usnadnit Obnova aplikace Outlook mnoho. Navíc si raději pořiďte účinný nástroj na opravu PST, jako je např DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com