msgbox字体及颜色

清风云子 · 发表于 2011-11-18 20:20

请问各位老师，msgbox能不能设置字体大小及颜色，如果能，怎么个格式，谢谢！

tonychris · 发表于 2011-11-18 20:21

无解。。。。。。。。。

liimtj · 发表于 2011-11-18 20:34

系统默认字体

ly · 发表于 2011-11-18 20:36

曲线救国
自定义窗体，设置相关属性。
当需要msgbox时，调用自定义窗体。

liucqa · 发表于 2011-11-20 23:53

改变Msgbox对话框的字体颜色?
A:ALT+F11→插入模块→输入以下代码：

Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorvalues As Long) As Long
Sub test()
Dim Mycolor As Long
'调用API函数SetSysColors，设置WINDOWS字体红色
Mycolor = SetSysColors(1, 8, vbBlue)
MsgBox "请看颜色是否变化了吗？", , "Excel 技巧网"
'调用API函数SetSysColors，还原WINDOWS字体
Mycolor = SetSysColors(1, 8, vbBlack)
End Sub

清风云子 · 发表于 2011-11-21 00:11

liucqa 发表于 2011-11-20 23:53
改变Msgbox对话框的字体颜色?
A:ALT+F11→插入模块→输入以下代码：

呵呵，谢谢，颜色是变了，学习了

7016427 · 发表于 2011-11-21 07:24

不能，只有使用窗体格式

冲天妖狐 · 发表于 2011-11-21 08:49

liucqa 发表于 2011-11-20 23:53
改变Msgbox对话框的字体颜色?
A:ALT+F11→插入模块→输入以下代码：

学习……好玩……

小fisher · 发表于 2011-11-21 09:02

不建议使用5楼的代码，因为在关闭消息框之前，系统所有的窗体文字颜色都会变为蓝色。

心驰神往 · 发表于 2011-11-21 09:02

没用过的啊表示压力挺大的

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

[求助] msgbox字体及颜色