2 cách nhanh chóng để sao chép tất cả hình ảnh từ bảng tính Excel sang email Outlook

Chia sẻ ngay bây giờ:

Đôi khi, bạn có thể cần sao chép tất cả hình ảnh được nhúng trong bảng tính Excel sang email Outlook. Tại thời điểm này, bạn có thể đọc bài viết này. Ở đây chúng tôi sẽ giới thiệu cho bạn 2 phương pháp nhanh chóng.

Thật dễ dàng để sao chép hình ảnh từ bảng tính Excel sang email Outlook. Bạn chỉ cần chọn và nhấn “Ctrl + C” để sao chép hình ảnh này. Tuy nhiên, nếu phải sao chép nhiều hình ảnh thì việc sao chép từng hình một chắc chắn là một cách làm ngu ngốc và tẻ nhạt. Do đó, ở đây chúng tôi sẽ giới thiệu cho bạn 2 cách hiệu quả hơn nhiều. Bây giờ hãy đọc tiếp để biết chúng một cách chi tiết.

Phương pháp 1: Chọn và sao chép tất cả hình ảnh trong bảng tính Excel theo cách thủ công

  1. Trước tiên, hãy mở bảng tính Excel cụ thể đó.
  2. Sau đó, nhấn nút phím “F5”.
  3. Trong hộp thoại “Đi tới” bật lên, nhấp vào nút “Đặc biệt”.Bấm vào nút "Đặc biệt"
  4. Tiếp theo, trong hộp thoại “Chuyển đến Đặc biệt” mới, chọn “Đối tượng” và nhấp vào “OK”.Lựa chọn các vấn đề"
  5. Cùng một lúc, tất cả các hình ảnh nhúng đã được chọn.
  6. Bây giờ, nhấn “Ctrl + C” để sao chép tất cả các hình ảnh đã chọn.Sao chép tất cả các đối tượng đã chọn
  7. Sau đó, khởi chạy Outlook và tạo một email mới.
  8. Sau đó, đặt con trỏ vào nội dung thư và nhấn “Ctrl + V”.
  9. Ngay lập tức, tất cả các hình ảnh được sao chép sẽ được dán vào nội dung email như hình dưới đây.Dán hình ảnh đã sao chép

Cách 2: Sao chép tất cả hình ảnh từ bảng tính sang email bằng VBA

  1. Trước tiên, trong Excel, nhấn tổ hợp phím “Alt + F11” để mở trình chỉnh sửa VBA của Excel.
  2. Sau đó, đặt mã VBA bên dưới vào một mô-đun hoặc dự án.
Sub CopyImagesToMail()
    Dim objWorksheet As Excel.Worksheet
    Dim objOutlookApp As Object
    Dim objMail As Object
    Dim objMailDocument As Object
    Dim objShape As Excel.Shape
 
    'Get the specific worksheet
    Set objWorksheet = ThisWorkbook.Worksheets(1)
 
    'Create a new email
    Set objOutlookApp = CreateObject("Outlook.application")
    Set objMail = objOutlookApp.CreateItem(objOutlookAppobjMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
 
    'Copy images to the email
    For Each objShape In objWorksheet.Shapes
        objShape.Copy
        objMailDocument.Range(0, 0).Paste
    Next
End Sub

Mã VBA - Sao chép tất cả hình ảnh từ bảng tính Excel sang email Outlook

  1. Tiếp theo, nhấn phím “F5” trong macro hiện tại.
  2. Ngay lập tức, một email mới sẽ được hiển thị.
  3. Tại đây bạn có thể nhận được cảnh báo, trong đó bạn nên nhấp vào “Cho phép”.Cho phép truy cập
  4. Cuối cùng, tất cả hình ảnh trong bảng tính Excel cụ thể sẽ nằm trong nội dung email, như minh họa trong ảnh chụp màn hình sau.Hình ảnh được sao chép trong nội dung email

Chú ý mọi rủi ro xung quanh Outlook

Outlook dễ bị hỏng vì có quá nhiều mối đe dọa xung quanh nó, chẳng hạn như vi-rút, lỗi hệ thống, lỗi phần cứng và sự cố về điện, v.v. Vì vậy, bạn cần phải đề phòng tất cả những yếu tố nguy hiểm này. Trước hết, bạn không bao giờ nên tin tưởng vào email từ những người gửi không xác định. Ngoài ra, tốt hơn hết bạn nên sao lưu định kỳ tệp Outlook của mình. Cuối cùng nhưng không kém phần quan trọng, để sửa PST tập tin kịp thời, bạn nên chuẩn bị một công cụ sửa chữa tiên tiế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

Chia sẻ ngay bây giờ:

Được đóng lại.