使用VBA复制Excel区域并粘贴为Outlook邮件图片的问题排查

之前可正常运行的VBA代码，用于将Excel区域复制并粘贴为Outlook邮件正文图片，时隔一年后再次使用时，宏在执行doc.Range.PasteAndFormat wdChartPicture行无报错终止，无任何结果，请求协助排查。

原代码： #

Sub CopyExcelRangeToOutlookMail()
        Dim outlookApplication As Outlook.Application
        Dim mail As Outlook.MailItem
        Dim insp As Outlook.Inspector
        Dim doc As Word.Document
        Dim msgText As String
        Dim myCell1 As Range
        Dim To_List As String
        Dim myCell2 As Range
        Dim CC_List As String
        Dim myCell3 As Range
        Dim BCC_List As String
        
        Set outlookApplication = New Outlook.Application
        Set mail = outlookApplication.CreateItem(olMailItem)
        
            With mail
                     .BodyFormat = olFormatRichText
                     .Display
                     .To = To_List
                     .CC = CC_List
                     .BCC = BCC_List
                     .Subject = "Team wishes you Happy Birthday!"
                     Set insp = .GetInspector
                     Set doc = insp.WordEditor
                     
                    doc.Range.InsertBefore msgText
                    Sheet2.Range("A7:S51").Copy
                     
                    DoEvents
                    doc.Range.PasteAndFormat wdChartPicture    'macro terminating while trying to execute this line without error or result

                    Application.CutCopyMode = False
            End With
End Sub

排查方向： #

• 检查Office对象库引用：打开VBA编辑器（Alt+F11），点击「工具」→「引用」，确认已勾选Microsoft Outlook xx.x Object Library和Microsoft Word xx.x Object Library。Office版本更新可能导致引用失效，重新勾选对应版本即可。
• 替换常量为数值：wdChartPicture是Word内置常量，若引用未加载则无法识别，直接替换为对应数值13，修改代码行：

  doc.Range.PasteAndFormat 13
  

• 精准定位粘贴位置：当前用doc.Range粘贴可能定位错误，改为定位到正文末尾再粘贴：

  doc.Range(doc.Range.End - 1).PasteAndFormat wdChartPicture '或数值13
  

• 增加剪贴板等待时间：大区域复制后剪贴板可能未就绪，在DoEvents后添加等待：

  DoEvents
  Application.Wait Now + TimeValue("00:00:01") '等待1秒
  

• 检查Outlook安全设置：新版本Outlook的安全限制可能阻止VBA操作邮件正文，确认Outlook无安全提示弹出，或在信任中心允许宏对Office程序的交互。
• 验证复制区域有效性：确认Sheet2.Range("A7:S51")区域存在，工作表未被删除或重命名。可手动复制该区域粘贴到Word，测试是否能正常生成图片。

内容的提问来源于stack exchange，提问作者Puntal