我想寻求帮助。我手上有很多Excel表格，每行都有一张图片。当我复制和粘贴行时，图片也将复制到粘贴的行中。但是，当我要删除行时，图片不会被删除。相反，它“隐藏”在下一行的图片后面。
另外，当我对列表进行排序/过滤时，图片似乎没有显示。图片停留在同一位置，但所有其他值均已排序/过滤。我的工作是删除某些条目并将它们随机化，因此您可以想象我遇到的所有顽固图片（仅拒绝属于其自己的行）的困扰。目前，我可以过滤，突出显示要删除的单元格，取消过滤（以使图片与行匹配），删除图片，然后手动删除行。至于随机化，我坚持认为在excel中使用“ RAND（）”函数需要对行进行排序，这会弄乱图片。
如果有人可以提供解决此问题的方法，我将不胜感激。这个论坛主题http://www.ozgrid.com/forum/showthread.php?t=85597也描述了我正在经历的事情。但是，当我尝试VBA代码时，它显示“运行时错误13”，我不知道这意味着什么。尝试该代码是我第一次尝试使用VBA和宏，但是我很自信我遵循了有关如何正确添加和运行它们的说明。它在句子For Each sh In Shapes处调试。
一些更多的细节：
我的图片属性设置为“用单元格移动和调整大小”。
每行只有一张图片，不包括标题。如果你们要求我发送excel文件，我将无法发送，因为它包含私人信息。但是，我可以更改数据。希望能成功！
最佳答案
图片浮在单元格上方：
左上角在单元格B2中.............我们可以在删除行之前使用它来决定删除哪些图片。因此，如果我们要删除第2行及其相关图片：
Sub dural()
Dim shp As Shape, rng As Range
Dim WhichRow As Long
For Each shp In ActiveSheet.Shapes
Set rng = shp.TopLeftCell
WhichRow = rng.Row
If WhichRow = 2 Then shp.Delete
Next shp
End Sub
然后删除第2行