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

Question

我创建了OptionButton一个

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块没有效果。

我究竟做错了什么？

Answer 1

添加控件时，该函数返回一个对象，该对象必须是Set一个变量。

尝试：Set Button = ActiveSheet.OptionButtons.Add(c.Left, c.Top, c.Width, c.Height)