Menuへ
チェックボックスを動的に作成・削除



シートコード

Option Explicit

'カーソルがあるセルにチェックボックスを作成
Private Sub MyMakeCheckBox()
    Dim lRow As Long
            
    lRow = ActiveCell.Row
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False)
        .Object.Caption = "チェック"
        .Object.Font.Size = 9
        .Object.BackColor = &HE0E0E0
        .Width = ActiveCell.Width
        .Height = ActiveCell.Height
    End With
End Sub

'全チェックボックスを削除
Private Sub MyDeleteeCheckBox()
    Dim tCtrl As Variant

    '全てのコントロール
    For Each tCtrl In ActiveSheet.Shapes
        'コントロールの名前をチェック
        If Left(tCtrl.Name, 8) = "CheckBox" Then
            'チェックボックスならば削除
            ActiveSheet.Shapes(tCtrl.Name).Delete
        End If
    Next
End Sub

Private Sub CommandButton1_Click()
    'カーソルがあるセルにチェックボックスを作成
    MyMakeCheckBox
End Sub

Private Sub CommandButton2_Click()
    '全チェックボックスを削除
    MyDeleteeCheckBox
End Sub
実行結果
[作成画面]


Topへ