更改文本框的字体颜色

我想打开一个Excel文件,转到文件中的第一个工作表,然后将textbox1的文本颜色更改为红色.

到目前为止,我设法做到的唯一方法是通过录制宏.

它给了我

Workbooks.Open (fPath & sName)

            Sheets(1).Select

  ActiveSheet.Shapes.Range(Array("TextBox1")).Select

  With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 262).Font.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
    .Solid
    End With

没关系; 但是文本的长度是可变的,所以如果它小于上面的262个字符,我会得到代码错误.

我试着介绍一下

CharCount = Len(textbox1.Text)

但是我得到错误424对象需要

我最初尝试过

Sheets(1).Select
ActiveSheet.TextBox1.ForeColor = RGB(255, 0, 0)

但得到错误438对象不支持此属性或方法.