макрос, щоб видалити прапорець activex у вибраному діапазоні - vba, excel-vba, excel

Я намагаюся видалити прапорець "ActiveX", використовуючи код нижче. Однак це не працює. Будь ласка, порадьте.

Sub CheckboxRemove()
Dim cl As Range
Dim cb As Object

For Each cl In Selection
Set cb = ActiveSheet.CheckBoxes.Delete()
Next cl

Set cl = Nothing
Set cb = Nothing
End Sub

Для прикладу, я помістив ці прапорці ActiveX з діапазону A1 до F1. Я виберу ячейки з A1: F1, і коли я запускаю цей макрос, ці прапорці слід видалити. Порадьте, будь ласка

Відповіді:

Позначте прапорці як "Форми", а потім перевірте розташування верхньої лівої руки:

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