如何用Excel VBA插入「插入-控件-复选框」路径下的新式复选框？

你提到的这种通过「插入->控件->复选框」路径添加的是**Excel内容控件（Content Control）**范畴的复选框，确实可以用VBA直接插入，完全避开你排除的两种方法。

实现代码 #

Sub InsertModernCheckBox()
    Dim targetCC As ContentControl
    ' 在当前活动工作表插入内容控件复选框
    Set targetCC = ActiveSheet.ContentControls.Add(Type:=xlContentControlCheckBox)
    
    ' 自定义复选框的位置与尺寸
    targetCC.Range.Select
    With Selection.ShapeRange
        .Left = 80   ' 距工作表左侧的距离
        .Top = 80    ' 距工作表顶部的距离
        .Width = 120 ' 复选框整体宽度
        .Height = 18 ' 复选框整体高度
    End With
    
    ' 设置复选框显示文本
    targetCC.Title = "请选择"
    ' 可选：设置默认选中状态
    targetCC.Checked = False
End Sub

补充说明 #

• 这类内容控件属于Excel的现代控件体系，和传统表单控件（CheckBoxes.Add）、ActiveX控件（Controls.Add）分属不同类别，外观和交互逻辑更贴合Office的现代设计风格
• 可通过ContentControl对象的属性进一步自定义，比如修改字体样式、绑定单元格存储选择状态、设置禁用状态等

内容的提问来源于stack exchange，提问作者user2057674