Excel 将复选框嵌入特定单元格

我目前正在使用VBA，这对我来说很新。我正在尝试将我的复选框嵌入到特定的单元格中，这样每当单元格行被隐藏时，复选框也将与单元格一起被隐藏

下面是我当前用于插入复选框的代码

ActiveSheet.CheckBoxes.Add(Cells(lRow, "A").Left, _
                            Cells(lRow, "A").Top, _
                            72, 17.25).Select
With Selection
    .Caption = ""
    .Value = xlOff
    .LinkedCell = "C" & i
    .Display3DShading = False

End With

谢谢。

好吧，我不这么认为。 也没有已知的事件再次捕获行的隐藏和取消隐藏。 我能给出的最接近的是：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo halt
    Application.EnableEvents = False
    Dim cb As CheckBox
    Set cb = Me.Shapes("Check Box 1").OLEFormat.Object
    cb.Top = Me.Range("cbrange").Top
    cb.Visible = IIf(Me.Range("cbrange").Height = 0, False, True)
forward:
    Application.EnableEvents = True
    Exit Sub
halt:
    MsgBox Err.Description
    Resume forward
End Sub

这不会自动隐藏复选框，直到您选择另一个范围。 请注意，我们使用了一个命名范围，即包含复选框的范围。

---

这是为了确保即使您插入行，复选框仍保留在该单元格中。不知怎的。

你的问题是什么？你的代码有错误吗？请详细说明。代码没有错误。但每次我隐藏行时，复选框都将保持未隐藏状态。你仍然可以看到并勾选复选框。是否有办法将复选框嵌入单元格，使其与单元格一起隐藏。？您只是在查找复选框的属性吗？马特：没有。。我不是指细胞链接属性。