使用Format:=xlBitmap时Shape.CopyPicture报错（错误1004）求助

我之前也碰到过一模一样的问题，当组合多个图表形状并同时使用Appearance:=xlPrinter和Format:=xlBitmap参数时，Excel很容易抛出1004错误——这大概率是组合形状的位图渲染逻辑和打印机驱动依赖之间的冲突导致的。下面给你几个实用的解决方案：

方案1：直接导出组合形状为高分辨率位图 #

避开CopyPicture的限制，直接用Shape对象的Export方法，这个方法可以直接指定分辨率，而且不依赖剪贴板，稳定性更高：

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("你的工作表名称") ' 替换成实际工作表名

' 组合目标图表
ws.Shapes.Range(Array("Chart 1", "Chart 2")).Group.Name = "temp_group"

With ws.Shapes("temp_group")
    ' 导出为高分辨率位图，Resolution可按需调整（比如300/600dpi）
    .Export Filename:="C:\你的保存路径\high_res_charts.bmp", _
            FilterName:="BMP", _
            Resolution:=300
    .Ungroup ' 取消组合
End With

方案2：先复制粘贴再导出 #

如果一定要保留CopyPicture的逻辑，可以先复制（只保留Appearance:=xlPrinter），粘贴为工作表临时图片后再导出：

Dim ws As Worksheet
Dim pastedPic As Shape
Set ws = ThisWorkbook.Worksheets("你的工作表名称")

' 组合并复制形状
ws.Shapes.Range(Array("Chart 1", "Chart 2")).Group.Name = "temp_group"
With ws.Shapes("temp_group")
    .CopyPicture Appearance:=xlPrinter
    .Ungroup
End With

' 粘贴为临时图片
ws.Paste
Set pastedPic = ws.Shapes(ws.Shapes.Count)

' 导出为高分辨率位图
pastedPic.Export Filename:="C:\你的保存路径\high_res_charts.bmp", _
                 FilterName:="BMP", _
                 Resolution:=300

' 清理临时图片
pastedPic.Delete

额外排查点 #

如果上述方案还是有问题，可以检查这两点：

• 你的默认打印机是否处于可用状态（Appearance:=xlPrinter依赖打印机驱动，若打印机离线/不可用也可能触发错误）
• 确保保存路径有写入权限，避免因权限问题导致导出失败

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