setting the caption in a button control

[Andy Dorph]

After entering the following line:
Set btn = ActiveSheet.Shapes.AddFormControl(xlButtonControl, 160, 28, 75,
23)

I try to change the caption by using

btn.Caption = "caption"

I receive an error when the code runs. What am I doing wrong? How can I
get this to work?

TIA

 

[Jim Cone]

Andy,

Try... btn.TextFrame.Characters.Text = "Caption"

Jim Cone
San Francisco, USA

 

[Don Guillett]

try
btn.Characters.Text = "Hi There"

 

[Tom Ogilvy]

That didn't work for me. Perhaps:

Sub Tester3()
Set btn = ActiveSheet.Shapes.AddFormControl(xlButtonControl, 160, 28, 75,
23)
ActiveSheet.Buttons(btn.Name).Caption = "Hi There"
End Sub

which did work.

 

[Andy Dorph]

Jim:

Thank you. It worked.

Andy,

Try... btn.TextFrame.Characters.Text = "Caption"

Jim Cone
San Francisco, USA