复制图像时随机出现运行时错误1004

Question

我有将图像从1个工作簿复制到另一个工作簿的代码。 Excel决定通过以下方式偶尔停止代码：

  

错误1004“ Range类的PasteSpecial方法失败”

有时它会成功复制所有图像，但是大多数时候会省去一些（设置错误恢复时设置下一个）。如果我在错误上选择“调试”，然后按F8键，将复制图像。 （但是on error resume next的效果不同）

其他复制图像的方式，例如.CopyPicture，最终结果是相同的。

    'Code below is in a loop

    vArr3 = Split(Cells(1, i).Address(True, False), "$")
    t = vArr3(0)

    Application.Goto Workbooks(BOM).Worksheets("Blad1").Range("a2")
    Workbooks(BOM).Worksheets("Blad1").Shapes.Range(Array("Afbeelding " & im)).Select

    Selection.Copy

    Workbooks(Template).Worksheets("Sheet1").Activate

    Application.Goto Workbooks(Template).Worksheets("Sheet1").Range(t & rs)
    Workbooks(Template).Worksheets("Sheet1").Range(t & rs).Select

    Workbooks(Template).Worksheets("Sheet1").Range(t & rs).PasteSpecial 'Error here

    rs = rs + 5
    im = im + 2

我希望Excel始终能够正常工作100％。遗漏的图像（和数量）是随机的。