VBA跨工作簿复制Shape时PNG自动转JPEG致文件体积增大咨询

当前代码走系统剪贴板跨工作簿粘贴图片类Shape的流程，会触发Excel原生的位图转码逻辑——Excel在通过剪贴板接收图片内容时，默认会把带Alpha通道的PNG格式图像统一转成低压缩率的JPEG格式存储，既丢失了PNG的透明通道属性，也因为JPEG的压缩效率远低于原PNG的优化级别，最终导致输出文件体积从12MB暴涨到20MB。 #

• 替换原有剪贴板中转的粘贴逻辑，改用Shape对象原生的CopyDestination方法做内存级直接复制，完全绕开剪贴板的格式转码流程。修改后的循环代码示例：

  For Each CurrentShape In ImportAccountDocumentationWorksheet.Shapes
      If CurrentShape.Type = msoPicture Then
          ' 图片类Shape直接通过对象内存复制，不触发剪贴板转码
          CurrentShape.CopyDestination _
              Destination:=AccountDocumentationWorksheet.Range(CurrentShape.TopLeftCell.Address)
      Else
          ' 非图片类Shape（文本框、组合图形、艺术字等）保留原有剪贴板逻辑即可
          CurrentShape.Copy
          Application.Wait Now() + TimeSerial(0, 0, 1)
          AccountDocumentationWorksheet.Range(CurrentShape.TopLeftCell.Address).PasteSpecial xlPasteAll
      End If
  Next CurrentShape
  

  这个方法是Excel对象模型提供的原生跨位置复制接口，直接在内存中传递Shape对应的原始嵌入资源，不会触发剪贴板的位图渲染和格式重编码，能完整保留原PNG的格式、透明属性和压缩体积。
• 如果个别Office版本下CopyDestination仍存在重编码问题，可改用更底层的实现方案：遍历源Shape对应的嵌入媒体资源，提取原始PNG的二进制内容，通过Shapes.AddPicture接口从内存流直接插入目标位置，全程不经过Excel的图片重编码管线，从根源上杜绝格式转换的可能。

• 不要尝试通过修改PasteSpecial的参数解决问题，跨工作簿场景下所有走剪贴板的图片粘贴操作，都会被Excel统一转成默认JPEG格式存储，调整粘贴参数无法改变剪贴板流程下的转码逻辑。
• 使用CopyDestination方法处理图片类Shape时，可以直接删掉原代码里的Application.Wait延迟，因为操作不依赖系统剪贴板，不存在剪贴板读写时序冲突，能大幅提升整体运行速度。

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