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

Question

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

粘贴时如何缩小图像？

Answer 1

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

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

可以找到更深入的示例here。我喜欢分离粘贴和调整大小的部分，它使代码保持灵活。