VBA复选框附加代码

如果可以将另一个事件添加到VBA Excel中的复选框中，我正在漫游。我创建如下复选框：

ActiveSheet.CheckBoxes.Add(.Left, .Top,.Width, .Height).Select
With Selection
    .Caption = ""
    .LinkedCell = "AN2"
    .Value = xlOn
End With

我想知道我是否可以为它添加代码，这样每当有人检查它时，某些单元格就会得到当前日期，如：

Cells(1,"A").Now()

---

干杯

正如@Rory提到的，answear是：

添加“.OnAction=“Name of macro”，然后您可以编写一个与单击相关的宏：

With Selection
    .Caption = ""
    .LinkedCell = "AN2"
    .Value = xlOff
    .OnAction = "DateClicked"
End With

Function DateClicked()
    If Cells(2,"AN") = "TRUE" Then
        Cells(2,"A") = Now()
    Else 
        Cells(2,"A") = ""
    End If
End Function  

---

只需将一个宏的名称指定给它的

OnAction

propertyTanks，这是我一直在寻找的，我不知道它有这个emmbed。