Kako skupno kopirati sve grafikone iz Excel radne knjige u Outlook e-poštu

Ako želite brzo kopirati sve grafikone sa svakog radnog lista u Excel radnoj knjizi u Outlook e-poštu, možete koristiti metodu izloženu u ovom članku. Može vam pomoći da ga dobijete u jednom potezu.

Možda ste izradili hrpu grafikona za statistiku u Excel radnoj knjizi. A kasnije biste željeli u potpunosti iskoristiti ove grafikone za stvaranje nove Outlook pošte. Naravno, možete ih ručno kopirati u e-poštu jednu po jednu. Ipak, prilično je problematično. Stoga ćemo u nastavku s vama podijeliti mnogo praktičniji način. Može vam pomoći da to shvatite jednostavnim klikom. Sada čitajte kako biste saznali detalje.

Skupno kopirajte sve grafikone iz Excel radne knjige u Outlook e-poštu

1. Za početak, otvorite određenu Excel radnu knjigu.
2. Zatim pritisnite “Alt + F11” za pristup Excel VBA editoru.
3. U novom prozoru dodajte „MS Outlook Object Library“ i „MS Word Object Library“. Koraci su slični onima predstavljenima u članku – „Kako dodati referencu biblioteke objekata u VBA".
4. Nakon toga stavite sljedeći VBA kod u projekt “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. Nakon toga dodirnite tipku "F5" ili kliknite ikonu "Pokreni" na alatnoj traci za pokretanje makronaredbe.
6. Nakon toga će se prikazati poruka e-pošte programa Outlook sa skočnim upozorenjem, prikazanim kao sljedeća slika.
7. Kada odaberete i kliknete na gumb "Dopusti", svi grafikoni u izvornoj Excel radnoj knjizi bit će kopirani u ovu poštu odjednom.

Zaštitite Outlook od svih rizika

Kao što svi znamo, mnoštvo prijetnji okružuje naše podatke, naravno uključujući naše Outlook podatkovne datoteke. Također, nitko se ne libi trpjeti oštećenje Outlooka. Stoga svaki korisnik Outlooka mora poduzeti radnje kako bi zaštitio svoj Outlook od svih vrsta potencijalnih rizika. Konkretno, korisnici moraju redovito sigurnosno kopirati Outlook podatke, što može olakšati Outlook oporavak puno. Štoviše, bolje bi vam bilo da nabavite moćan alat za popravak PST-a, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvaren sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com