範囲を指定してチェックボックスを削除したい

質問

Excelのワークシート上にチェックボックスを多数配置しています。

Range("D23:I27")の範囲にあるチェックボックスを除き（←ここは固定したい）

31行目以下のチェックボックスをVBAで削除したいのですが、
そのようなことって可能なのでしょうか。

Worksheets("A").Range("F31").CheckBoxes.Delete
などとしてみましたがだめでした。

どなたか教えてください。

回答No.1

watabe007 · ベストアンサー

コントロールツールボックスのチェックボックスなら
Dim Chk As OLEObject
For Each Chk In ActiveSheet.OLEObjects
　　If TypeName(Chk.Object) = "CheckBox" Then
　　　　If Chk.TopLeftCell.Row <= 31 And Intersect(Chk.TopLeftCell, Range("D23:I27")) Is Nothing Then Chk.Delete
　　End If
Next

フォームのチェックボックスなら
Dim Chk As Excel.CheckBox
For Each Chk In ActiveSheet.CheckBoxes
　　If Chk.TopLeftCell.Row <= 31 And Intersect(Chk.TopLeftCell, Range("D23:I27")) Is Nothing Then Chk.Delete
Next

お礼

フォームのチェックボックスでしたので2番目の方でパーフェクトで解決しました。
非常に助かりました。ありがとうございます。またよろしくお願いします。