在Excel VBA中，如何在两张纸之间复制图片？

Question

我试图从表格中复制图片＆＃34;会员表格＆＃34;对图纸＆＃34;成员＆＃34;，但图片没有复制到特定位置（第146行，第24栏）。目标地址是选择但不是复制。代码工作到historyWks.Cells(146, 24).Select但是粘贴了＃39}不工作？

Sub copypasttest()
Dim inputWks As Worksheet
Dim historyWks As Worksheet

  Set inputWks = Worksheets("membership Form")
  Set historyWks = Worksheets("members")
  Application.CopyObjectsWithCells = True
  inputWks.Activate
  inputWks.Range("M3").Select
  Selection.Cut
  historyWks.Activate
  historyWks.Cells(146, 24).Select
  historyWks.Paste
End Sub

Answer 1

尝试这样的事情：

Sub copypastetest()
Dim wsInput As Worksheet, wsHist As Worksheet

  Set wsInput = Worksheets("membership Form")
  Set wsHist = Worksheets("members")
  wsInput.Pictures(1).Copy               'Assuming it is the first picture
  wsHist.Cells(146,24).PasteSpecial
End Sub