Add text to textbox macro

Question

Why doesn't this code work to add text to textbox? I am sure the syntax is off somewhere, but not sure where.

    Label5.Text = "Add Text"

Thanks.

Steve Rindsberg · Accepted Answer · 2013-07-26 21:52:41Z

1

Impossible to say w/o a more extensive bit of code.

If the text box is actually an ActiveX Label (as suggested by its name), then like so:

Sub thing()
    Dim oSh As Shape
    Set oSh = ActiveWindow.Selection.ShapeRange(1)

    oSh.OLEFormat.Object.Caption = "Some text"

End Sub

If it's a normal text box or other shape that can contain text:

Sub thing()
    Dim oSh As Shape
    Set oSh = ActiveWindow.Selection.ShapeRange(1)

    oSh.TextFrame.TextRange.Text = "Some text"

End Sub

answered Jul 26, 2013 at 21:52

Steve Rindsberg

14.9k1 gold badge32 silver badges37 bronze badges

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

Comments

Sorceri · Accepted Answer · 2013-07-26 21:08:24Z

0

Its because its a shape. Get the shapes collection and locate the label then access the TextFrame2.TextRange.text

answered Jul 26, 2013 at 21:08

Sorceri

8,0932 gold badges32 silver badges40 bronze badges