/ /選択したActivexチェックボックスを削除する - Excel、vba

選択項目のActivexチェックボックスを削除する - Excel、Excel

私は削除するマクロを書こうとしていた選択された範囲内のすべてのアクティブチェックボックス。私はこのコードを書いたが、 "オブジェクトはこのプロパティまたはメソッドをサポートしていない"というエラーを返す。

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

回答:

回答№1は1
If Not Intersect(rng, cbx.TopLeftCell) Is Nothing Then cbx.Delete

回答№2の場合は1

これにより、選択範囲内のすべてのActiveXチェックボックスが削除されます。

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