[求助]MsgBox中的字体大小颜色设置问题

dlsky18 · 发表于 2006-12-29 00:08

请老师帮忙：我想把MsgBox中的字体设置为红色、仿宋4号，怎么处理VBA？谢谢！

MsgBox "为便于指标及其数据的调用，点击即可生成word文档报告，可直接打印，也可以另存为word文档，谢谢！", 48, "公司财务部"

[此贴子已经被作者于2006-12-29 0:09:44编辑过]

yuanzhuping · 发表于 2006-12-29 07:32

Msgbox是不能设置字体大小颜色的。2007的不知行不行？

northwolves · 发表于 2006-12-29 10:32

'windows字体可选择 &H0 -----> &HFFFFFF 共16777216种颜色！
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorvalues As Long) As Long
Sub xxxx()
Dim r As Long
r = SetSysColors(1, 8, vbRed) '设置WINDOWS字体红色
MsgBox "为便于指标及其数据的调用，点击即可生成word文档报告，可直接打印，也可以另存为word文档，谢谢！", 48, "公司财务部"
r = SetSysColors(1, 8, vbBlack) '还原WINDOWS字体
End Sub

Long_III · 发表于 2006-12-29 10:50

学习！

Aeolian-Vox · 发表于 2006-12-29 11:00

全部提示内容都变色了？！

nickxie · 发表于 2006-12-29 21:21

狼版本

爱死你了

向您问好 · 发表于 2006-12-29 21:27

狼版主的方法真好，消息框开始变为红色，但一下子又还原黑色了，哈哈

yuanzhuping · 发表于 2006-12-29 21:29

狼版真行啊，学习了。

F_MILLION · 发表于 2007-1-26 09:27

好东东，学习中………………

thomastang · 发表于 2007-1-26 09:32

学习了！

原来我遇到这种情况都是自己新建一个窗体来代替MSGBOX，呵呵，我的办法太苯啦。

		自动登录	找回密码
密码			免费注册

[求助]MsgBox中的字体大小颜色设置问题

评分