在Excel VBA中，如何在2張紙之間復制圖片？

Question

我正在嘗試將圖片從工作表“成員資格表”復制到工作表“成員”，但圖片未復制到特定位置（第146行，第24行）。 目標地址正在選擇，但沒有復制。 代碼在historyWks.Cells(146, 24).Select但“粘貼”不起作用？

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