有没有办法复制特定范围内的“浮动图片”并使用VBA将其粘贴到不同的工作表？

Question

请参阅上图，以便更好地理解我的问题。

我尝试选择范围，将其复制并粘贴到不同的工作表上，但图片从不跟随它。

有没有办法复制特定范围内的“浮动图片”并使用VBA将其粘贴到不同的工作表？

Answer 1

只需参考图片的TopLeftCell属性：

Sub PictureMover()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
        sAddy = s.TopLeftCell.Address(0, 0)
        If sAddy = "A7" Or sAddy = "A8" Then
            s.Copy
            Sheets("Sheet2").Paste
        End If
    Next
End Sub