Si të kopjoni grupe të gjitha grafikët nga një libër pune në Excel në një email të Outlook

Zgjidhjet e Outlook Shtator 29, 2025

Nëse dëshironi të kopjoni shpejt të gjitha grafikët nga çdo fletë pune në një libër pune Excel në një email të Outlook, mund të përdorni metodën e ekspozuar në këtë artikull. Mund t'ju ndihmojë ta merrni atë me një lëvizje.

Ndoshta ju keni krijuar një grumbull grafikësh për statistikat në një libër pune në Excel. Dhe më vonë, do të dëshironit të përdorni plotësisht këto grafiku për të krijuar një postë të re të Outlook. Sigurisht, ju mund të zgjidhni t'i kopjoni ato në email një nga një manualisht. Megjithatë, është mjaft e mundimshme. Prandaj, në vijim do të ndajmë me ju një mënyrë shumë më të përshtatshme. Mund t'ju ndihmojë ta kuptoni këtë thjesht me një klikim. Tani lexoni për ta kuptuar në detaje.

Kopjoni në grup të gjitha grafikët nga një libër pune në Excel në një email të Outlook

  1. Për të filluar, hapni librin specifik të punës në Excel.Hapni librin specifik të Excel-it
  2. Pastaj, shtypni "Alt + F11" për të hyrë në redaktuesin Excel VBA.
  3. Në dritaren e re, shtoni “MS Outlook Object Library” dhe “MS Word Object Library”. Hapat janë të ngjashëm me ato që janë prezantuar në artikull – “Si të shtoni një referencë të bibliotekës së objekteve në VBA".Shtoni Bibliotekën e Objekteve të Outlook dhe Word
  4. Pas kësaj, vendosni kodin e mëposhtëm VBA në projektin "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

Kodi VBA - Kopjoni në grup të gjitha grafikët nga një libër pune në Excel në një email të Outlook

  1. Pas kësaj, trokitni lehtë mbi butonin "F5" ose klikoni ikonën "Run" në shiritin e veglave për të ekzekutuar makro.
  2. Më pas, një email i Outlook do të shfaqet me një paralajmërim kërcyes, i paraqitur si imazhi i mëposhtëm.Paralajmërim në Outlook Email
  3. Kur zgjidhni dhe klikoni në butonin "Lejo", të gjitha grafikët në librin burimor të Excel-it do të kopjohen menjëherë në këtë postë.Email me grafikët e kopjuar

Mbroni Outlook nga të gjitha rreziqet

Siç e dimë të gjithë, shumë kërcënime po rrethojnë të dhënat tona, natyrisht duke përfshirë skedarët tanë të të dhënave Outlook. Gjithashtu, askush nuk heziton të vuajë korrupsionin e Outlook. Kështu, çdo përdorues i Outlook duhet të bëjë veprime për të mbrojtur Outlook-in e tij nga të gjitha llojet e rreziqeve të mundshme. Për të qenë specifik, përdoruesit duhet të kopjojnë të dhënat e Outlook në baza të rregullta, gjë që mund ta lehtësojë Rimëkëmbja e opinionit shumë. Për më tepër, do të ishte më mirë të merrni në dorë një mjet të fuqishëm të rregullimit të PST, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë sql e korruptuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.