Kako paketno kopirati vse grafikone iz Excelovega delovnega zvezka v Outlookovo e-pošto

Če želite hitro kopirati vse grafikone iz vsakega delovnega lista v Excelovem delovnem zvezku v Outlookovo e-pošto, lahko uporabite metodo, predstavljeno v tem članku. Lahko vam pomaga, da ga dobite naenkrat.

Morda ste ustvarili kup grafikonov za statistiko v Excelovem delovnem zvezku. Kasneje bi radi v celoti izkoristili te grafikone za ustvarjanje nove Outlookove pošte. Seveda se lahko odločite, da jih eno za drugo ročno kopirate v e-pošto. Kljub temu je precej težavno. Zato bomo v nadaljevanju z vami delili veliko bolj priročen način. To vam lahko pomaga spoznati preprosto z enim klikom. Zdaj preberite, če želite izvedeti podrobnosti.

Paketno kopirajte vse grafikone iz Excelovega delovnega zvezka v Outlookovo e-pošto

1. Za začetek odprite določen Excelov delovni zvezek.
2. Nato pritisnite »Alt + F11« za dostop do urejevalnika Excel VBA.
3. V novem oknu dodajte »Knjižnica objektov MS Outlook« in »Knjižnica objektov MS Word«. Koraki so podobni tistim, ki so predstavljeni v članku – »Kako dodati referenco knjižnice objektov v VBA".
4. Po tem vstavite naslednjo kodo VBA v 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. Po tem se dotaknite tipke »F5« ali kliknite ikono »Zaženi« v orodni vrstici, da zaženete makro.
6. Kasneje se prikaže Outlookovo e-poštno sporočilo s pojavnim opozorilom, prikazanim na naslednji sliki.
7. Ko izberete in kliknete gumb »Dovoli«, bodo vsi grafikoni v izvornem Excelovem delovnem zvezku hkrati kopirani v to pošto.

Zaščitite Outlook pred vsemi tveganji

Kot vsi vemo, je veliko groženj okoli naših podatkov, seveda vključno z našimi podatkovnimi datotekami Outlook. Prav tako nihče ni naklonjen poškodovanju Outlooka. Tako mora vsak uporabnik Outlooka ukrepati, da zaščiti svoj Outlook pred vsemi vrstami potencialnih tveganj. Natančneje, uporabniki morajo redno varnostno kopirati Outlookove podatke, kar lahko olajša Obnovitev programa Outlook veliko. Še več, raje si priskrbite zmogljivo orodje za popravljanje PST, kot je npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjen sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com