როგორ დავაკოპიროთ ყველა დიაგრამა Excel-ის სამუშაო წიგნიდან Outlook-ის ელფოსტაზე

Outlook Solutions სექტემბერი 29, 2025

თუ გსურთ სწრაფად დააკოპიროთ ყველა დიაგრამა Excel-ის სამუშაო წიგნის ყველა სამუშაო ფურცლიდან Outlook-ის ელფოსტაზე, შეგიძლიათ გამოიყენოთ ამ სტატიაში მოცემული მეთოდი. ის დაგეხმარებათ მიიღოთ ის ერთი ნაბიჯით.

შესაძლოა, თქვენ შექმენით გრაფიკების დასტა სტატისტიკისთვის Excel-ის სამუშაო წიგნში. და მოგვიანებით, გსურთ სრულად გამოიყენოთ ეს სქემები ახალი Outlook ფოსტის შესაქმნელად. რა თქმა უნდა, თქვენ შეგიძლიათ აირჩიოთ მათი ხელით კოპირება ელფოსტაზე სათითაოდ. თუმცა, საკმაოდ პრობლემურია. ამიტომ, შემდეგში ჩვენ გაგიზიარებთ ბევრად უფრო ხელსაყრელ გზას. ეს დაგეხმარებათ გააცნობიეროთ ეს უბრალოდ დაწკაპუნებით. ახლა წაიკითხეთ, რომ გაიგოთ იგი დეტალურად.

ჯგუფური კოპირება ყველა დიაგრამა Excel-ის სამუშაო წიგნიდან Outlook-ის ელფოსტაზე

დასაწყებად, გახსენით კონკრეტული Excel-ის სამუშაო წიგნი.
შემდეგ დააჭირეთ "Alt + F11" Excel VBA რედაქტორზე წვდომისთვის.
ახალ ფანჯარაში დაამატეთ „MS Outlook Object Library“ და „MS Word Object Library“. ნაბიჯები სტატიაში წარმოდგენილის მსგავსია – „როგორ დავამატოთ ობიექტის ბიბლიოთეკის მითითება VBA-ში".
ამის შემდეგ, ჩადეთ შემდეგი VBA კოდი "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

ამის შემდეგ, დააჭირეთ ღილაკს "F5" ან დააწკაპუნეთ "Run" ხატულაზე ინსტრუმენტთა პანელში მაკროს გასაშვებად.
შემდგომში, Outlook-ის ელფოსტა გამოჩნდება ამომხტარი გაფრთხილებით, რომელიც ნაჩვენებია შემდეგი სურათის სახით.
როდესაც აირჩევთ და დააწკაპუნებთ ღილაკზე „დაშვება“, Excel-ის სამუშაო წიგნის ყველა დიაგრამა ერთდროულად დაკოპირდება ამ წერილში.

დაიცავით Outlook ყველა რისკისგან

როგორც ყველამ ვიცით, უამრავი საფრთხე ემუქრება ჩვენს მონაცემებს, რა თქმა უნდა, Outlook მონაცემთა ფაილების ჩათვლით. ასევე, არავინ ერიდება Outlook-ის კორუფციას. ამრიგად, Outlook-ის ყველა მომხმარებელმა უნდა მიიღოს ზომები, რათა დაიცვას თავისი Outlook ყველა სახის პოტენციური რისკისგან. კონკრეტულად რომ ვთქვათ, მომხმარებლებმა რეგულარულად უნდა შექმნან Outlook მონაცემების სარეზერვო ასლები, რაც ხელს შეუწყობს Outlook აღდგენა ბევრი. უფრო მეტიც, სჯობს ხელში ჩაგდოთ ძლიერი PST დაფიქსირების ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის კორუმპირებული sql და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად