vba - 复制嵌入图像而不使用形状

Question

我有一个包含许多工作表和图像的工作簿，这些工作表和图像具有随机名称和任意顺序，我需要的唯一图像始终位于 A2:C14 范围内，我使用以下代码来复制图像:

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

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

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