1

以下のコードを使用して「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

例として、A1 から F1 のセル範囲にこれらの ActiveX チェック ボックスを配置しました。A1:F1 からセルを選択します。このマクロを実行すると、これらのチェックボックスが削除されます。お知らせ下さい

4

1 に答える 1

0

チェックボックスを形状として扱い、左上のセルの位置にチェックを入れます。

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
于 2013-06-11T14:12:03.900 に答える