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

私は写真を削除しているので... :-)