如何将工作簿上的图像复制到运行时生成的另一个图像上

我有一个工作簿“w1”。 我有一个button里面的代码,将数据从书“w1”复制到新书“w2”。 这里按下button时会生成书“w2”。 现在我想使用相同的button来复制图像forms“w1”到“w2”。 下面是我在button里面写的把代码从'w1'复制到'w2'的代码。 但是它抛出一个错误“对象不支持这个属性或方法”

W1.Sheets("conf").Shapes("Image1").Copy w2.Sheets("Sheet1").Range(w2.Sheets("Sheet1").Cells(20, 1), w2.Sheets("Sheet1").Cells(21, 1))_ .Paste 

它是否复制具有相同大小和形状的图像,或者是否适合input的单元格范围

尝试像这样:

 w2.Sheets("Sheet1").Paste