如何将 Excel 工作簿中的所有图表批量复制到 Outlook 电子邮件

展望解决方案 2025 年 9 月 29 日
立即分享：

如果您想快速将 Excel 工作簿中每个工作表中的所有图表复制到 Outlook 电子邮件中，您可以使用本文中公开的方法。 它可以帮助您一次搞定。

也许您已经为 Excel 工作簿中的统计信息创建了一堆图表。 稍后，您希望充分利用这些图表来创建新的 Outlook 邮件。 当然，您可以选择手动将它们一张一张地复制到电子邮件中。 然而，这很麻烦。 因此，接下来，我们将与您分享一个更方便的方法。 它可以帮助您通过单击实现这一点。 现在继续阅读以详细了解它。

将 Excel 工作簿中的所有图表批量复制到 Outlook 电子邮件

  1. 首先，打开相应的 Excel 工作簿。打开特定的 Excel 工作簿
  2. 然后，按“Alt + F11”访问 Excel VBA 编辑器。
  3. 在新窗口中，添加“MS Outlook 对象库”和“MS Word 对象库”。步骤与文章“如何在 VBA 中添加对象库引用“。添加 Outlook 和 Word 对象库
  4. 之后，将以下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

VBA 代码 - 将所有图表从 Excel 工作簿批量复制到 Outlook 电子邮件

  1. 之后，点击“F5”键按钮或单击工具栏中的“运行”图标运行宏。
  2. 随后，将显示一封带有弹出警告的 Outlook 电子邮件，如下图所示。Outlook 电子邮件中的警告
  3. 当您选择并单击“允许”按钮时，源 Excel 工作簿中的所有图表将立即复制到此邮件中。带有复制图表的电子邮件

保护 Outlook 免受所有风险

众所周知，我们的数据周围存在大量威胁，当然包括我们的 Outlook 数据文件。 此外，没有人不愿意遭受 Outlook 损坏。 因此，每个 Outlook 用户都必须采取措施保护他们的 Outlook 免受各种潜在风险。 具体来说，用户需要定期备份Outlook数据，这样可以方便 展望恢复 很多。 此外，您最好掌握一个强大的 PST 修复工具，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。