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

请参考上面的图片来更好地理解我的问题。

我试图select范围，复制它，并将其粘贴到不同的工作表，但图片永远不会遵循它。

有没有办法复制一个特定的范围内的“浮动图片”，并将其粘贴到不同的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