Az összes diagram kötegelt másolása egy Excel-munkafüzetből egy Outlook e-mailbe

Ha gyorsan szeretné átmásolni az összes diagramot egy Excel-munkafüzet minden munkalapjáról egy Outlook e-mailbe, használhatja az ebben a cikkben bemutatott módszert. Segíthet egy menetben megszerezni.

Talán létrehozott egy halom diagramot a statisztikákhoz egy Excel-munkafüzetben. Később pedig teljes mértékben ki szeretné használni ezeket a diagramokat egy új Outlook-levél létrehozásához. Természetesen egyenként manuálisan is másolhatja őket az e-mailbe. Ennek ellenére eléggé zavaró. Ezért a következőkben egy sokkal praktikusabb módszert osztunk meg Önnel. Segíthet ennek felismerésében egy kattintással. Most olvassa el a részleteket.

Az összes diagram kötegelt másolása egy Excel-munkafüzetből egy Outlook e-mailbe

1. Kezdésként nyissa meg az adott Excel-munkafüzetet.
2. Ezután nyomja meg az „Alt + F11” gombot az Excel VBA szerkesztő eléréséhez.
3. Az új ablakban adja hozzá az „MS Outlook Object Library” és az „MS Word Object Library” elemeket. A lépések hasonlóak a cikkben bemutatottakhoz – „Objektumkönyvtár-hivatkozás hozzáadása VBA-ban".
4. Ezután helyezze be a következő VBA-kódot a „ThisWorkbook” projektbe.

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. Ezután érintse meg az „F5” gombot, vagy kattintson a „Futtatás” ikonra az eszköztáron a makró futtatásához.
6. Ezt követően egy Outlook e-mail jelenik meg egy felugró figyelmeztetéssel, amely a következő képen látható.
7. Ha kiválasztja és rákattint az „Engedélyezés” gombra, a forrás Excel-munkafüzet összes diagramja egyszerre másolásra kerül ebbe az e-mailbe.

Védje meg az Outlookot minden kockázattól

Mint mindannyian tudjuk, rengeteg fenyegetés veszi körül adatainkat, természetesen az Outlook adatfájljainkat is. Emellett senki sem vonakodik az Outlook korrupciójától szenvedni. Így minden Outlook-felhasználónak lépéseket kell tennie, hogy megvédje Outlookját mindenféle lehetséges kockázattól. A pontosság kedvéért a felhasználóknak rendszeresen biztonsági másolatot kell készíteniük az Outlook adatairól, ami megkönnyítheti Outlook helyreállítása nagyon. Sőt, jobb, ha beszerez egy hatékony PST-javító eszközt, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve korrupt sql és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com