vb编程的一个简单问题

Question

我用Excel自带的vb功能做一个欢迎画面，如下：
Sub auto_open()
MsgBox " 综合服务中心专用", vbOKOnly, "集团有限责任公司"
End Sub
请朋友在我编写内容中加代码，将字体改成红色或蓝色。

Answer 1

ScrollBars
该属性用来确定文本框有没有滚动条。取值范围：0、1、2、3四个值，其定义为：
0——文本框没有滚动条；
1——只有水平滚动条；
2——只有垂直滚动条；
3——同时有水平与垂直滚动条。
该属性限制为多行模式下才有效
也就是MultiLine=True的时候才有用

Answer 2

用文本框的ScrollBars属性，选0没有滚动条，选1水平滚动条，选2垂直滚动条选3既有水平滚动条又有垂直滚动条（前提是MultiLine属性必须为True）

Answer 3

msgbox怕是不好改吧:
你可建立一个用户窗体(UserForm1),窗体中加一标签(label1)
auto_open中这样写:
Sub auto_open()
UserForm1.Caption = "集团有限责任公司"
UserForm1.Label1.Font.Size = "24"
UserForm1.Label1.ForeColor = vbRed
UserForm1.Label1.Caption = " 综合服务中心专用"
Load UserForm1
UserForm1.Show
End Sub本回答被提问者采纳

Answer 4

必须把
WordWrap属性设置成False，否则ScrollBars属性无论选什么都显示不出水平滚动条的！呵呵

Answer 5

Msgbox 没有这个功能的。。。