如何创建复选框/选项按钮并在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到一个变量。

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