excel-2010 - 删除同一工作表上的形状后丢失数据验证列表

Question

我有一张带有数据验证列表的表格。我还在上面插入了一些形状，但是在删除任何形状后，我的所有数据验证列表都消失了。

这是我删除形状的方法：

If Target.Value = "" Then
    For Each sh In Sheets(3).Shapes
        If Not Application.Intersect(sh.TopLeftCell, ActiveSheet.Range("A" & Target.Row)) Is Nothing Then
            sh.Delete
        End If
    Next
End If

看这个问题我的数据验证列表也算是形状。那么，我能否以某种方式仅在 A 列中隔离形状并删除它们。

知道为什么会发生这种情况以及如何解决。

谢谢。

Answer 1

解决了：

If Target.Value = "" Then
     For Each sh In Sheets(3).Shapes
        If Not Application.Intersect(sh.TopLeftCell, ActiveSheet.Range("A" & Target.Row)) Is Nothing Then
            If sh.Type = msoPicture Then
                sh.Delete
            End If
        End If
    Next
End If

我正在删除图片，所以... :-)