复制embedded的图像，而不使用形状

我有一个工作簿与许多工作表和具有随机名称和任意顺序的图像，我需要的唯一图像总是在范围A2：C14，我使用下面的代码来复制图像：

firstSheet.Range("A2:C14").Copy secondSheet.Range("I6").PasteSpecial 

但它只复制单元格文本，而不是图像。
有没有办法使用Range("A2:C14)"复制图像或其他方式来select单元复制图像？

Answer 1

由于CopyPicture是一个Shape对象的方法，除非你已经有一个指向它的指针，否则使用Shapes集合是不可避免的

像这样的东西

 Sub Demo() Dim shp As Shape Dim rng As Range Set rng = firstSheet.Range("A2:C14") For Each shp In firstSheet.Shapes If Not Intersect(rng, shp.TopLeftCell) Is Nothing Then ' Found it shp.CopyPicture secondSheet.Range("I6").PasteSpecial Exit Sub End If Next End Sub