源表含图表等对象时VBA选择性粘贴报错及排除复制方法咨询

执行Range.Copy操作时，Excel会自动将目标区域覆盖范围内的所有浮动对象（图表、自选形状、嵌入OLE对象等）一并写入剪贴板，该行为和后续调用PasteSpecial时选择的粘贴类型无关。跨工作簿执行选择性粘贴时，部分Excel版本会先校验剪贴板内所有内容的兼容性，即便只需要粘贴值、列宽、格式三类单元格属性，只要剪贴板中存在跨程序或版本不兼容的嵌入对象，就会直接抛出运行错误。
原代码还存在隐性逻辑bug：After:=Sheets(Sheets.Count)未明确指定工作表所属的工作簿，会默认读取当前活动工作簿的工作表集合，操作过程中如果切换了活动工作簿，新建工作表的存放位置会不符合预期。

优先采用无剪贴板的值传递方案，从根源避免浮动对象被带入剪贴板，运行性能更好且无兼容问题，全程不需要激活或选中目标工作表，不会出现界面跳闪：

Dim sourceRng As Range
' 绑定源工作表的打印区域
Set sourceRng = wb1.Sheets(x).Range("Print_Area")
' 在目标工作簿中新建工作表，明确指定父级对象避免定位错误
Set wsNew = wb2.Worksheets.Add(After:=wb2.Sheets(wb2.Sheets.Count))

With wsNew.Range(sourceRng.Address)
    ' 直接通过对象赋值写入单元格值，完全绕开剪贴板，不会携带任何图表、形状类对象
    .Value = sourceRng.Value
    ' 复制列宽属性
    sourceRng.Copy
    .PasteSpecial xlPasteColumnWidths
    ' 复制单元格格式属性
    .PasteSpecial xlPasteFormats
    ' 取消区域内的单元格合并
    .MergeCells = False
End With

' 清空剪贴板，退出复制状态
Application.CutCopyMode = False

该方案的核心是值传递环节完全不依赖剪贴板，后续两次PasteSpecial操作仅复制单元格维度的列宽和格式属性，剪贴板内不会留存任何浮动对象的引用，可完全规避对象导致的粘贴报错，运行速度也远高于原有的全区域复制逻辑。

如果必须保留原有全量剪贴板粘贴的逻辑，可在复制前遍历源工作表的所有Shapes集合，将与打印区域重叠的图表、形状临时设置为不可复制状态，待粘贴完成后恢复，但该方案处理效率低，还可能因对象位置判断偏差出现漏处理，不推荐使用。

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