선택 항목에서 Activex 확인란을 선택 취소

Question

선택한 범위 내의 모든 ActiveX 확인란을 삭제하는 매크로를 작성하려고했습니다. 이 코드를 작성했지만 "개체가이 속성 또는 메서드를 지원하지 않습니다."오류가 계속 반환됩니다. 도와주세요.

Dim cbx As OLEObject 
Dim rng As Range 
Set rng = selection 
For Each cbx In ActiveSheet.OLEObjects 
    If Not Intersect(rng, cbx.Object.TopLeftCell) Is Nothing Then cbx.Delete 
Next 

Answer 1

If Not Intersect(rng, cbx.TopLeftCell) Is Nothing Then cbx.Delete 

Answer 2

이 선택 내의 모든 액티브 체크 박스를 삭제합니다 :

Sub DeleteActiveXCheckboxes() 

Dim Shape As Shape 

For Each Shape In ActiveSheet.Shapes 
    If Shape.Type = 12 Then 
     If Not Intersect(Shape.TopLeftCell, Selection) Is Nothing Then 
      Shape.Delete 
     End If 
    End If 
Next Shape 

End Sub