How to create a checkbox/options button and change its values in VBA?

Question

I create an OptionButton with

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

I want to change the LinkedCell of the newly created button, but the With block doesn't have an effect.

What am I doing wrong?

NickSlash · Accepted Answer · 2013-05-17 12:30:40Z

1

When you add a control, the function returns an Object which has to be Set to a variable.

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

answered May 17, 2013 at 12:30

NickSlash

5,1954 gold badges25 silver badges41 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to create a checkbox/options button and change its values in VBA?

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related