調整影像大小並將其粘貼到所選範圍otherworkbook

Question

，這可能是太容易了要求，但我是一個初學者。

我想能夠從工作表中複製範圍並將其粘貼到另一個工作表的調整大小，我應該選擇並將其粘貼到其他工作表中的選定範圍區域。

當我通過使用宏來做到這一點時，我可以粘貼它並手動調整其大小。當我嘗試再次使用此已記錄的宏時，它不會將其粘貼到我已選擇的範圍內，並且其大小不是像它的原始，也不像我調整的大小。

如何指定粘貼的大小和範圍？

Answer 1

如果您粘貼圖像，您可以使用.width，.height，.top，.left來定位它並設置它的寬度和高度。此外，如果你瓦納，以適應在一定的範圍內，可以通過.WIDTH，.height，.TOP，。左該範圍的atributes，甚至細胞指定。需要更多的例子嗎這似乎太清楚，我:(

編輯：嘗試這樣的事情

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

    With targetSheet 
     .Range(.Cells(1, 1), .Cells(3, 3)).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 

您可以使用類似

.range("A1:B10") 

，而不是我的參考，但嘗試去了解它，它的多更容易閱讀。它告訴你，你這具有由行和列數指明（按照這個順序）的兩個角細胞瓦納範圍，或者選擇，甚至可以.range（.cells（1，「A」）,.細胞（3，「C」））但是數字是數字......如果你需要增加範圍列或數字，那麼結果就是......它的muc^h更好的aproach

所以您的需求，這將是

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 

如果你WANA將其粘貼到另一個工作簿，嘗試像數據或圖像的這

Sub copyPic() 
    Dim targetSheet As Worksheet 
    Set targetSheet = Sheets("Sheet1") 
    Dim targetWB as excel.workbook 
    set targetWB = workbooks.open("pathToYourWorkbook") 
    With targetSheet 
     .Range("A1:B10") .CopyPicture 
     targetWb.sheets("sheetName").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