Text color in textbox
i may have misunderstood, maybe that you want the text can be changed even if
the sheet is protected
Set shp = ActiveSheet.Shapes.AddTextBox(msoTextOrientationHo rizontal, 100, 100,
200, 50) ' add shape
With shp
.TextFrame2.TextRange.Characters.Font.Fill.ForeCol or.RGB = RGB(255, 0, 0)
.ControlFormat.LockedText = False
isabelle
Le 2014-07-22 23:13, isabelle a écrit :
hi Chris,
if you do not want the text to be modified why not use a Label.
Set shp = ActiveSheet.Shapes.AddLabel(msoTextOrientationHori zontal, 100, 100,
200, 50)
for the font color try with:
With shp
.TextFrame2.TextRange.Characters.Font.Fill.ForeCol or.RGB = RGB(255, 0, 0)
isabelle
|