Question

我有一个excel文档，我想从一张纸上获取一系列单元格，然后将它们作为图像粘贴到另一张纸中，但是，为了打印目的，重新调整图像大小。

我有一个小宏，在Record Macro按钮的帮助下编写。它提升范围并将其放置在我想要的位置，作为图像，但我不确定如何在VBA中调整此图像的大小（我希望将其缩小）。

Sub heatmapToJPEG()

    Range("H1:U30").Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Sheets("PDF Page").Select
    Range("A27").Select
    ActiveSheet.Paste

End Sub

我以为我可以创建一个object变量并将新图像存储到该对象。但我要么做得不正确，要么有更好的方法。有没有人有想法？

Answer 1

我相信你可以做任何一件事

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

或Selection.ShapeRange.Height = 136.8

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

1 个答案: