vba - 如何在 Visual Basic Word 宏中为文本框设置颜色

Question

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

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

Answer 1

您的文本框颜色没有任何成功可能有两个原因。

首先，您使用形状对象正确创建文本框，然后当您设置使用的颜色时Me.TextBox1。由于您已经使用变量创建了对象，Box因此最好使用此变量来设置颜色。

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

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