我正在尝试选中“敏感数据”复选框并使其高度和宽度与其他复选框相同时添加一个新的复选框。

我刚刚看到了这个answer并且可以正常工作，该代码添加了一个新复选框，但如下所示

我希望“复选框”具有一个名称，例如chkPCI，以及标题“ PCI”，我尝试了以下代码，但是添加了一个表单控件，而不是activeX控件。

    activeSheet.CheckBoxes.Add(Cells(10,"A").Left,_
                            Cells(10,"A").Top,_
                            72,17.25).Select
    With Selection
        .Caption = "PCI"
        .Value = xlOff '
        .Display3DShading = False
    End With