VBA复制可编辑Excel图表到Word触发4605错误的问题咨询

你遇到的核心问题是Excel的Copy方法未将图表数据正确写入系统剪贴板，导致Word的PasteAndFormat无法读取有效内容，进而触发4605错误。以下是两种可行的解决方案：

方案1：复制为图片并粘贴（保留格式，不可编辑） #

如果仅需保留图表外观格式，不需要在Word中编辑图表，可使用CopyPicture强制将图表写入系统剪贴板，再直接粘贴：

Sub test()
    Dim masterWord As Object
    Dim masterReport As Object
    
    Set masterWord = CreateObject("Word.Application")
    Set masterReport = masterWord.Documents.Add
    masterWord.Visible = True
    
    ' 将图表以屏幕显示效果复制为图片，写入系统剪贴板
    ThisWorkbook.Worksheets(1).ChartObjects("Chart 1").CopyPicture _
        Appearance:=xlScreen, Format:=xlPicture
    
    ' 粘贴到Word文档末尾
    masterReport.Paragraphs.Last.Range.Paste
End Sub

方案2：嵌入可编辑的OLE对象（保留源格式+可编辑） #

如果需要图表在Word中保持可编辑性，且保留Excel源格式，改用PasteSpecial指定嵌入OLE对象的方式，同时解决剪贴板读取问题：

Sub test()
    Dim masterWord As Object
    Dim masterReport As Object
    ' 晚绑定需手动定义Word常量，早绑定可省略
    Const wdPasteOLEObject As Long = 0
    Const wdInLine As Long = 0
    
    Set masterWord = CreateObject("Word.Application")
    Set masterReport = masterWord.Documents.Add
    masterWord.Visible = True
    
    ' 复制Excel图表
    ThisWorkbook.Worksheets(1).ChartObjects("Chart 1").Copy
    
    ' 以嵌入OLE对象的方式粘贴，保留源格式和可编辑性
    masterReport.Paragraphs.Last.Range.PasteSpecial _
        DataType:=wdPasteOLEObject, _
        Placement:=wdInLine
    
    ' 可选：断开链接，确保图表完全嵌入Word而非关联Excel文件
    ' masterReport.InlineShapes(masterReport.InlineShapes.Count).LinkFormat.BreakLink
End Sub

错误原因说明 #

1. Excel原生的ChartObject.Copy在跨应用自动化场景下，可能仅将数据存入Excel内部剪贴板，未同步到系统全局剪贴板，导致Word无法读取。
2. 原代码中使用的wdChart参数，在晚绑定模式下未定义常量值，也会导致PasteAndFormat参数无效，触发命令不可用错误。

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