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

时间:2013-06-15 22:38:37

标签: vba ms-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

1 个答案:

答案 0 :(得分:1)

由于两个原因,您的文本框颜色没有任何成功。

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

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

Box.Fill.ForeColor = &HFF&
Box.Fill.BackColor = &H8000000D
相关问题