excel - 删除行时如何自动删除图片？

Question

我想请求帮助。我手上有很多 Excel 表格，每一行都有一张图片。当我复制并粘贴行时，图片也会复制到粘贴的行中。但是，当我想删除行时，图片不会被删除。相反，它“隐藏”在下一行的图片后面。

此外，当我对列表进行排序/过滤时，图片似乎没有出现。图片保留在同一位置，但所有其他值均已排序/过滤。我的工作是删除和随机化一些条目，所以你可以想象我对那些拒绝属于自己的行的顽固图片的痛苦。目前，我可以过滤、突出显示要删除的单元格、取消过滤(以便图片与行匹配)、删除图片，然后手动删除行。至于随机化，我陷入困境，因为在Excel中使用“RAND()”函数需要对行进行排序，这会弄乱图片。

如果有人能够提供解决此问题的解决方案，我将不胜感激。此论坛帖子http://www.ozgrid.com/forum/showthread.php?t=85597还描述了我正在经历的事情。但是，当我尝试 VBA 代码时，它显示“运行时错误 13”，我不知道这意味着什么。尝试该代码是我第一次尝试使用 VBA 和宏，但我非常有信心遵循有关如何正确添加和运行它们的说明。它在句子 For Each sh In Shapes 处进行调试。

更多细节:我的图片属性设置为“使用单元格移动和调整大小”。每行也只有一张图片，不包括标题。如果你们要求我发送 Excel 文件，我无法发送，因为它包含私有(private)信息。但是，我可以更改数据。希望这会起作用!

Answer 1

图片漂浮在单元格上方:

左上角位于单元格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 行