Kā kopēt visas diagrammas no Excel darbgrāmatas uz Outlook e-pastu

Ja vēlaties ātri kopēt visas diagrammas no katras darblapas Excel darbgrāmatā uz Outlook e-pastu, varat izmantot šajā rakstā aprakstīto metodi. Tas var palīdzēt jums to iegūt vienā piegājienā.

Varbūt esat izveidojis diagrammu kaudzīti statistikai Excel darbgrāmatā. Vēlāk jūs vēlētos pilnībā izmantot šīs diagrammas, lai izveidotu jaunu Outlook pastu. Protams, jūs varat izvēlēties kopēt tos pa e-pastu pa vienam manuāli. Tomēr tas ir diezgan apgrūtinoši. Tāpēc turpmāk mēs jums dalīsimies daudz ērtākā veidā. Tas var palīdzēt jums to saprast, vienkārši noklikšķinot. Tagad lasiet tālāk, lai to iegūtu detalizēti.

Sērijveidā kopējiet visas diagrammas no Excel darbgrāmatas uz Outlook e-pastu

1. Lai sāktu, atveriet konkrēto Excel darbgrāmatu.
2. Pēc tam nospiediet “Alt + F11”, lai piekļūtu Excel VBA redaktoram.
3. Jaunajā logā pievienojiet “MS Outlook objektu bibliotēku” un “MS Word objektu bibliotēku”. Darbības ir līdzīgas tām, kas aprakstītas rakstā — “Kā pievienot objektu bibliotēkas atsauci VBA valodā".
4. Pēc tam projektā “ThisWorkbook” ievietojiet šādu VBA kodu.

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. Pēc tam pieskarieties taustiņa “F5” taustiņam vai rīkjoslā noklikšķiniet uz ikonas “Palaist”, lai palaistu makro.
6. Pēc tam tiks parādīts Outlook e-pasts ar uznirstošo brīdinājumu, kas parādīts kā šāds attēls.
7. Atlasot un noklikšķinot uz pogas “Atļaut”, visas avota Excel darbgrāmatas diagrammas tiks uzreiz kopētas šajā pastā.

Aizsargājiet Outlook no visiem riskiem

Kā mēs visi zinām, daudzi dati ir saistīti ar mūsu datiem, protams, ieskaitot mūsu Outlook datu failus. Neviens arī nelabprāt cieš no Outlook korupcijas. Tādējādi katram Outlook lietotājam ir jāveic darbības, lai aizsargātu savu Outlook no visa veida iespējamiem riskiem. Lai būtu specifiski, lietotājiem regulāri jādublē Outlook dati, kas var atvieglot Outlook atkopšana daudz. Turklāt labāk iegūt spēcīgu PST labošanas rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp korumpēts sql un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar