excel - 在Excel VBA模块中访问粘贴的图片

Question

我是 VB 世界的新手，目前正在复制 + 粘贴我的电子表格的部分内容，如下所示:

Sheets("Overview").Range("G4:P34").CopyPicture
Sheets("Overview").Paste Destination:=Worksheets("Overview").Range("T4")

所以基本上我只是将G4区域作为图像复制到P34，然后从T4开始粘贴，效果很好，所以远的。问题是新创建的图片会自动分配 Name 属性，因此我无法像下面的代码片段那样简单地访问它，因为我实际上不知道它的名称:

Sheets("Overview").Shapes("Picture xx").DoSomethingWithIt

我的问题是如何访问刚刚粘贴到工作表中的图片？任何建议将不胜感激，非常感谢。

Answer 1

我认为您需要的是 Application.Caller 属性，它返回被调用的内容。一个例子是

    sub pic()
    ActiveSheet.Shapes(Application.Caller).Select
     'some code

    End Sub

这应该选择最后一个对象(图片)，而您不必记住它的名称。在这里您可以了解更多信息

http://msdn.microsoft.com/en-us/library/office/ff193687(v=office.15).aspx