Vba 从一张图纸复制范围，并在另一张图纸中粘贴为图像，同时调整图像大小

我有一个excel文档，我想从一张工作表中提取一系列单元格，并将它们作为图像粘贴到另一张工作表中，但为了打印目的，需要重新调整图像的大小

我有我的小宏，是在录制宏按钮的帮助下编写的。它提升了范围并将其放置在我想要的位置，作为图像，但我不确定如何在VBA中调整此图像的大小（我想使其更小）

---

我想我可以创建一个

对象

变量并将新图像存储到该对象。但我不是做得不对，就是有更好的方法。有人有想法吗？

我相信你也可以

ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.ShapeRange.Width = 100

或

Selection.ShapeRange.Height=136.8

ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.ShapeRange.Width = 100