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

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

我正在删除图片......： - ）