VBA--drawing textbox...change text.

[repairman615]

Hello,

I am using 2007 and am trying to control the text of a textbox choosen off the insert menu.

Sheets(1).Shapes("textbox 12").Text = "hello"

Using this line gives error 438. Object doesn't support this property or method.

My goal is to basically have a macro fire when only cell a1 is changed, and if a1 is greater than 3000 then change textbox 12, else textbox 12 = "".

All help and comments are greatly appreciated.

 

[Gary McMaster]

Try this:

Sheets(1).Shapes("textbox 12").TextFrame.Characters.Text = "hello"

Hope it helps.

Gary

 

[Gary McMaster]

BTW

You can address the individual characters in the text box, and any other shapes that have a text frame with something like this:

Sheets(1).Shapes("textbox 12").TextFrame.Characters.Text = "HELLO"

'Starting at the 3rd character and continuing for 2 characters change the font color & bold
Sheets(1).Shapes("textbox 12").TextFrame.Characters(3, 2).Font.Color = RGB(255, 0, 0)
Sheets(1).Shapes("textbox 12").TextFrame.Characters(3, 2).Font.Bold = True

Gary

 

[repairman615]

Thank You very much, worked great.
Also thanks for the extra bit...I appreciate you help!

 

[Excelor]

Try this:

Sheets(1).Shapes("textbox 12").TextFrame.Characters.Text = "hello"

Hope it helps.

Gary

Old answer I know but this help me so I wanted to say so. I have looked around numerous websites and forums to find out how to do this "simple" thing, setting text in a textbox using vba. Thanks to this I have finally done it!