Text Box name

[tasander]

Hi

I am creating a text box in a macro but later on want to grab that text box again, how can i give the text box a name on initial creation so that i can go back to it later?

Thanks

 

[lazarovich]

Hi,

i = Application.InputBox("Please enter value", "Enter Value", Type:=1)

This works for me...it calls an input box that I recall more times when need it.

Roberto.

 

[Andrew Poulsom]

Welcome to the Board.

Example:

Sub T()
    Dim Sh As Shape
    Set Sh = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 224.25, 110.25, _
        134.25, 82.5)
    Sh.Name = "MyTextBox"
End Sub

 

[tasander]

Thanks for the quick responses guys, can you advise how i can then grab the text box and enter text or change the appearance.

Thanks

 

[Andrew Poulsom]

To enter text and set the fill colour:

Sub AddTextBox()
    Dim Sh As Shape
    Set Sh = ActiveSheet.Shapes.AddTextBox(msoTextOrientationHorizontal, 224.25, 110.25, _
        134.25, 82.5)
    Sh.Name = "MyTextBox"
End Sub
Sub FormatTextBox()
    With ActiveSheet.Shapes("MyTextBox")
        .TextFrame.Characters.Text = "Hello there!"
        .Fill.ForeColor.SchemeColor = 10
    End With
End Sub

Using the macro recorder will give you what you need.

 

[tasander]

Thanks, thats great