Eｘcelのチェックボックスの消去方法を教えてください

質問

Excelで作成したチェックボックスを消去したいのですが、消去できません。
消去したいチェックボックスの名称を右クリックしたのですが、何も反応しません。また、チェックボックスがある行を削除してもボックスが残ったままになってしまいます。
どこか保護またはロックを解除しなければならないのでしょうか。
おしえてください。

回答No.4

coldblade

たくさんのチェックボックスが入っているなら、一つずつ削除するのは遅いです。
この場合、マクロで削除することをお勧めします。

Option Explicit

'全部を削除したい場合
Sub DeleteAllControls()
Dim obj As OLEObject
'Selects all ActiveX controls on the active sheet and deletes them
For Each obj In ActiveSheet.OLEObjects
obj.Delete
Next obj
End Sub

'例えば、Comboboxのみ削除したい場合(プロパティでタイプ確認できます)
Sub DeleteComboboxesOnly()
Dim obj As OLEObject
'Checks each ActiveX control on the active sheet
'If the control is a ComboBox delete it
'go to the next control and do same.
For Each obj In ActiveSheet.OLEObjects
If obj.ProgId = "Forms.ComboBox.1" Then obj.Delete
Next obj
End Sub