将复制的范围粘贴到另一个工作簿表

Question

我得到了以下代码，它将一个范围从一个工作表粘贴到同一个工作表。

  Sub copyPic()
Dim targetSheet As Worksheet
Set targetSheet = Sheets("Sheet1")

With targetSheet
    .Range("A1:B10") .CopyPicture
    .Paste
    Selection.Name = "pastedPic"

    With .Shapes("pastedPic")
        .Top = targetSheet.Cells(5, 5).Top
        .Left = targetSheet.Cells(5, 5).Left
        .Width = 50
        .Height = 50

    End With
End With

End Sub

我想将“pastedPic”粘贴到 Workbook("masterfile.xlsm").Sheets("Page1") 到我选择的范围内，如果这不起作用，那么我想将单元格指定为我在我的代码中做了，但这次是在另一个工作簿和另一个工作表中。我要过去的工作簿已经打开。

我该怎么办？

Answer 1

你可以使用

 Sheets("Sheet1").Range("A1:B10").CopyPicture
 Dim DestinationSheet as Worksheet
 Set DestinationSheet = WorkBooks("masterfile.xlsm").Sheets ("Sheet1")

 DestinationSheet.Paste 

 Dim pastedPic as Shape

 'The newest picture/shape will always have the index 1

 Set pastedPic = DestinationSheet.Shapes(1)

 With pastedPic 
      .Top = Destination Sheet.Cells(5,5).Top
      'Rest of positioning  code here

 End With