동일한 시트에서 모양을 삭제 한 후 데이터 유효성리스트가 손실됩니다.

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