excel vba如何用代码在单元格内插入复选框（activeX控件），求代码

    Sheets("sheet1").CheckBoxes.Add(50, 100, 80, 45).OnAction = "sheet1.aaa"  'sheet1 添加表达控件，并指定 sheet1中的 宏 aaa
    Sheets("sheet1").OLEObjects.Add ClassType:="Forms.CheckBox.1", _
            Left:=100, Top:=100, Width:=100, Height:=30   '添加的是  activeX 控件

追问

如何体现在单元格内？

追答Sub CCC()
    Dim R   As Range
    Set R = [C3]  '这里指定单元格。
    Sheets("sheet1").CheckBoxes.Add(R.Left, R.Top, R.Width, R.Height).OnAction = "sheet1.aaa"  'sheet1 添加表达控件，并指定 sheet1中的 宏 aaa
End Sub

追问

这是activeX控件吗？
checkboxes.add添加的是表单控件呀

追答

上面不是有个 activex 控件的例子了吗，照着改改就是了，非要完全写给你啊。

Sub CCC()
    Dim R   As Range
    Set R = [C3]  '这里指定单元格。
    Sheets("sheet1").OLEObjects.Add ClassType:="Forms.CheckBox.1", _
        Left:=R.Left, Top:=R.Top, Width:=R.Width, Height:=R.Height
End Sub

本回答被提问者采纳

Sub Macro1()
ActiveSheet.CheckBoxes.Add(483, 0.75, 76.5, 17.25).Select
End Sub

括号内是位置坐标