Vba 如何在visual basic Word宏中设置文本框的颜色

我试图改变文本框的背景色。 这些措施不起作用：

Me.TextBox1.ForeColor = &HFF& 
Me.TextBox1.BackColor = &H8000000D 

我没有找到任何与颜色对应的字段。我的文本框：

Set Box = ActiveDocument.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=50, Top:=50, Width:=440, Height:=300)
Box.WrapFormat.Type = wdWrapSquare

---

您在文本框的颜色方面没有取得任何成功，可能有两个原因

首先，您可以使用shapes对象正确创建文本框，但当您设置所使用的颜色时，您可以使用

Me.TextBox1

。由于已使用

框

变量创建对象，因此最好使用此变量设置颜色

第二个问题是

Shape

对象使用

Fill

属性来设置颜色。因此，您只需在创建

框后使用以下代码即可：

Box.Fill.ForeColor = &HFF&
Box.Fill.BackColor = &H8000000D

您在文本框的颜色方面没有取得任何成功，可能有两个原因

首先，您可以使用shapes对象正确创建文本框，但当您设置所使用的颜色时，您可以使用
Me.TextBox1
。由于已使用
框
变量创建对象，因此最好使用此变量设置颜色

第二个问题是
Shape
对象使用
Fill
属性来设置颜色。因此，您只需在创建
框后使用以下代码即可：

Box.Fill.ForeColor = &HFF&
Box.Fill.BackColor = &H8000000D