将一系列单元格复制为图片，并将图片存储到新variables中

我想写一个macros，它需要一系列的单元格，将它们复制为一个图像，然后将这个图像存储到一个picture或shapevariables中，我可以将其传递给后续的方法调用。

 Call Sheet6.Range("G1:V33").CopyPicture(xlScreen, xlPicture) 

到目前为止，使用教程，我有这条线，虽然我有点不确定什么是标签正在做什么，如果我可以用这种方式稍后将其存储到名为heatMap的shape或picture

先谢谢你。

Answer 1

一旦你复制了范围，图片的目的地是决定你如何粘贴的目的地。 例如，如果您将图片粘贴到Excel中，则只需使用

 Worksheets("YourWorkbook").Range("YourRange").Pictures.Paste.Select 

注意：.Select没有必要，除非您想在粘贴后select图片。

这是将其粘贴到Outlook中的一种方法

这里是如何将其粘贴到Word中

Call关键字只是强制提供括号项目。 这个以前回答的问题解释得很好

编辑方面的意见：我会build议使用一个For循环关于您的工作表上的形状。 使用.count查找工作表中的形状数量，并创build一个数组（如ShapeCount(1 to NumberOfShapes)以“收集形状”，然后可以根据其数组值调用任何形状。