复制内部带有图片的单元格并粘贴到另一张工作表中

Question

尝试粘贴复制的带有图片的单元格时遇到问题。我将代码放在这里，以便你们可以尝试了解情况。代码中的所有内容都可以正常运行，但是。

非常感谢您。

Do While shtPic.Cells(k, 1) <> Empty
    If shtPic.Cells(k, 1) = shtProforma.Cells(j, 2) Then
        shtPic.Cells(k, 3).Copy
        shtProforma.Cells(j, 3).PasteSpecial xlPasteAll
        Exit Do
    End If
    k = k + 1
Loop

复印部分很好。它是从shtPic复制的，但是不会粘贴到shtProforma。