通过 VBA 的 Excel 复选框

Question

我正在尝试使用 VBA 将复选框添加到工作表中。 我有几个代码变体，它们实现了相同的结果。 虽然前几个复选框在活动单元格内对齐，但在几行之后，复选框越来越低，最终出现在下一行。 我该如何解决这个问题。

.CheckBoxes.Add(Left:=.Cells(ToRow, "B").Left, Top:=.Cells(ToRow, "B").Top, Width:=.Cells(ToRow, "B").Width, Height:=.Cells(ToRow, "B").Height).Select

Excel 复选框

Answer 1

我已经为 100 行尝试了以下代码，它工作正常。 另外请确保缩放系数应为 100%。 如果没有，那么您可以使用以下方法进行设置：

ActiveWindow.Zoom = 100

Sub test()
    Dim ToRow As Long
    Dim LastRow As Long
    Dim MyLeft As Double
    Dim MyTop As Double
    Dim MyHeight As Double
    Dim MyWidth As Double
    LastRow = 100
    For ToRow = 2 To LastRow
            MyLeft = Cells(ToRow, "B").Left
            MyTop = Cells(ToRow, "B").Top
            MyHeight = Cells(ToRow, "B").Height
            MyWidth = Cells(ToRow, "B").Width

            ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight).Select
             With Selection
                .Caption = "1"
                .Value = xlOff
                .LinkedCell = "B" & ToRow
                .Display3DShading = False
            End With
    Next ToRow
End Sub