Nếu bạn muốn sao chép nhanh chóng tất cả các biểu đồ từ mọi trang tính trong sổ làm việc Excel sang email Outlook, bạn có thể sử dụng phương pháp được trình bày trong bài viết này. Nó có thể giúp bạn có được nó trong một lần.
Có lẽ bạn đã tạo một chồng biểu đồ cho số liệu thống kê trong sổ làm việc Excel. Và sau này, bạn muốn tận dụng triệt để các biểu đồ này để tạo một thư Outlook mới. Tất nhiên, bạn có thể chọn sao chép từng cái một vào email theo cách thủ công. Tuy nhiên, nó là khá rắc rối. Vì vậy, trong phần sau đây, chúng tôi sẽ chia sẻ với bạn một cách dễ dàng hơn nhiều. Nó có thể giúp bạn nhận ra điều đó chỉ đơn giản qua một cú nhấp chuột. Bây giờ đọc để có được nó một cách chi tiết.
Sao chép hàng loạt tất cả biểu đồ từ sổ làm việc Excel sang email Outlook
- Trước tiên, hãy mở tệp Excel cụ thể đó.
- Sau đó, nhấn “Alt + F11” để truy cập trình soạn thảo Excel VBA.
- Trong cửa sổ mới, hãy thêm “Thư viện đối tượng MS Outlook” và “Thư viện đối tượng MS Word”. Các bước thực hiện tương tự như hướng dẫn trong bài viết – “Cách thêm tham chiếu thư viện đối tượng trong VBA".
- Sau đó, đặt mã VBA sau vào dự án “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
- Sau đó, chạm vào nút phím “F5” hoặc nhấp vào biểu tượng “Chạy” trên thanh công cụ để chạy macro.
- Sau đó, một email Outlook sẽ hiển thị với cảnh báo bật lên, được hiển thị như hình ảnh sau.
- Khi bạn chọn và nhấp vào nút “Cho phép”, tất cả các biểu đồ trong sổ làm việc Excel nguồn sẽ được sao chép vào thư này cùng một lúc.
Bảo vệ Outlook khỏi mọi rủi ro
Như chúng ta đã biết, có rất nhiều mối đe dọa xung quanh dữ liệu của chúng ta, tất nhiên bao gồm cả các tệp dữ liệu Outlook của chúng ta. Ngoài ra, không ai miễn cưỡng phải chịu đựng tham nhũng Outlook. Do đó, mọi người dùng Outlook phải thực hiện các hành động để bảo vệ Outlook của họ khỏi mọi loại rủi ro tiềm ẩn. Cụ thể, người dùng phải sao lưu dữ liệu Outlook thường xuyên, điều này có thể tạo điều kiện Phục hồi Outlook nhiều. Hơn nữa, tốt hơn hết bạn nên nắm giữ một công cụ sửa lỗi PST mạnh, chẳng hạn như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sql bị hỏng và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm