删除行时如何自动删除图片？
我想请求帮助。 我手上有很多excel表单，每行都有一张图片。 当我复制和粘贴行时，图片也被复制到粘贴的行中。 但是，当我想要删除行时，图片不会被删除。 相反，它隐藏在下一行图片的后面。
此外，当我sorting/过滤列表，图片似乎并没有遵循。 图片保持在相同的位置，但所有其他值都被sorting/过滤。 我的工作是删除和随机化一些条目，所以你可以想象我的苦恼与所有顽固的图片，只是拒绝属于自己的行。 目前，我可以筛选，突出显示要删除的单元格，不过滤（使图片与行匹配），删除图片，然后手动删除行。 至于随机化，我坚持使用Excel中的“RAND（）”函数需要sorting行，这将弄乱图片。
如果有人能提供解决这个问题的办法，我将不胜感激。 这个论坛主题http://www.ozgrid.com/forum/showthread.php?t=85597也描述了我所经历的。 但是，当我尝试VBA代码，它说“运行时错误13”，我不知道这是什么意思。 尝试这个代码是我第一次尝试使用VBAs和macros，但我非常有信心，我遵循指示如何正确地添加和运行它们。 它For Each sh In Shapes被debugging。
一些更多的细节：我的图片属性设置为“移动和单元格的大小”。 每行只有一张图片，不包括标题。 如果你们要求我发送excel文件，我不能这样做，因为它包含私人信息。 但是，我可以更改数据。 希望能工作！
图片在单元格上浮动：
左上angular在单元格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行