我将如何修改此代码以将粘贴的图像缩小 50%

How would I modify this code to shrink the pasted image by 50%

Sub Tester()
    Sheet1.Range("D5:E16").Copy
    Sheet2.Activate
    Sheet2.Range("A1").Select
    ActiveSheet.Pictures.Paste Link:=True
    Application.CutCopyMode = False
End Sub

如何在粘贴时缩小图片？

要调整图片大小，您可以使用：

Picture.ShapeRange.Width = 0.5 * Picture.Width
Picture.ShapeRange.Height = 0.75 * Picture.Height

可以找到更深入的示例 here。我喜欢将粘贴和调整大小的部分分开，这样可以保持代码的灵活性。