代码如下。
Sub addCheckbox() ActiveSheet.CheckBoxes.Add(495.75, 182.25, 57, 21).Select ActiveSheet.CheckBoxes.Add(493.5, 223.5, 63.75, 27).Select End Sub这个代码是添加两个复选框的代码,其中的位置坐标自己改
代码如下。
Sub addCheckbox() ActiveSheet.CheckBoxes.Add(495.75, 182.25, 57, 21).Select ActiveSheet.CheckBoxes.Add(493.5, 223.5, 63.75, 27).Select End Sub这个代码是添加两个复选框的代码,其中的位置坐标自己改