Excel自动添加复选框控件及事件代码

Excel VBA开发的自动添加复选框（CheckBox控件），同时自动添加控件事件代码，实现判断复选框是否选中。VBA按钮单击事件代码：

Private Sub CommandButton1_Click()
    On Error GoTo Proc_Err
    Dim i As Integer, CtlName As String
    Dim MyCodeLine(3) As String
    '禁止屏幕更新
    Application.ScreenUpdating = False
    '在活动工作表中增加一个CheckBox
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=100, Top:=50, Width:=80, Height:= _
        20).Select
    '获取控件名称
    CtlName = Selection.Name
    '为了便于演示，只允许添加9个CheckBox
    If VBA.Len(CtlName) > 9 Then
        Selection.Delete
    Else
        '调整新添加的控件的位置，避免重叠
        Selection.Top = 20 + 50 * CInt(VBA.Right$(CtlName, 1))
        '生成控件代码
        MyCodeLine(1) = "Private Sub " & CtlName & "_Change()"
        MyCodeLine(2) = CtlName & ".Caption=" & CtlName & ".value"
        MyCodeLine(3) = "End Sub"
        For i = 1 To 3
            '插入控件代码
            ThisWorkbook.VBProject.VBComponents(Me.CodeName).CodeModule.InsertLines i, MyCodeLine(i)
        Next
    End If
    Application.ScreenUpdating = True
    Proc_End:
    Exit Sub    
Proc_Err:
    MsgBox Err.Number & "//" & Err.Description
    Resume Proc_End    
End Sub