Text Boxes


Posted by Geoff on June 22, 2000 7:32 AM

First off, I just want to thank all those that have helped me out with my last few questions. I have another question about a text box created using the excel drawing feature. Using VBA, I want to change the color of the font inside of this text box (if you ask me, it looks more like a label than a text box). The name of the box is "Text Box 21" and I tried using Shapes.Item("Text Box 21").something but there's nothing to do with text boxes in there. I managed to change the color of a line drawn with the excel drawing feature with Shapes.Item("Line 20").Line.ForeColor = RGB(255, 0, 0) but how do I do the same with the text inside of a text box (drawn using Excel drawing feature)? Thanks for any help.



Posted by Ivan Moala on June 22, 0100 7:58 PM


The Text box as a drawing object is part of the
Activesheets shapes object therefore

ActiveSheet.Shapes("Text Box 21").Select
Selection.Font.ColorIndex = 3'=Red

HTH

Ivan