Question

我有一个宏，它接受一系列单元格，将它们复制为图像，然后将它们放在一个单独的工作表中。我想拍摄图像，调整大小，并将正确尺寸的图像放入不同的图纸中。

Sub heatmapToJPEG()

Range("G1:V33").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

'places image of heat map into Setup tab
Sheets("Setup").Select
Range("M1").Select
ActiveSheet.Paste

End Sub

我想在“设置”选项卡中重新调整图像大小，但是当excel将其放置在那里时，它会为其提供默认名称图片1，图片2，图片3或之前的任何迭代关闭并重新打开工作簿。

有没有办法为“设置”选项卡中的图像指定永久变量名称？如果是这样，我的想法是将其分配给变量名称，并将其传递给另一个子项以进行大小调整和放置。我相信有更好的方法，但我遇到了这个障碍。

Answer 1

这是不好的做法，但最后只需添加一个.Name属性 -

ActiveSheet.Paste
Selection.Name = "name"

使用默认命名约定

1 个答案: