Excel 如何在VBA中创建复选框/选项按钮并更改其值？

我使用创建一个

选项按钮

For Each c In Selection
    Dim right As Range
    Set right = c.Offset(0, 1)
    Button = ActiveSheet.OptionButtons.Add(c.Left, c.Top, c.Width, c.Height)
    With Button
        .LinkedCell = right.Address   ' has no effect
        .Characters.Text = ""
        .Name = right.Address
    End With
Next

我想更改新创建按钮的

LinkedCell

，但是

With

块没有效果

---

我做错了什么？

添加控件时，函数会将必须设置的对象返回给变量

尝试：

Set Button=ActiveSheet.OptionButtons.Add（c.左、c.上、c.宽、c.高）