如何創建複選框/選項按鈕並在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)