How to make letters bigger in MsgBox() prompt?


Posted by Eli Weiss on February 15, 2002 12:37 AM

Hello,
How to make bigger letters in MsgBox() prompt?
Eli

Posted by Mudface on February 15, 2002 1:42 AM

Right-click on your desktop and select Properties. Choose the 'Appearance' tab and change the 'Item' dropdown to read Message Box. Change the font and style to your liking. I don't know if this can be done within Excel.

Posted by Ivan F Moala on February 15, 2002 2:04 AM

If you want to do this within excel then
try this;

Option Explicit
Dim newHour, newMinute, newSecond, waitTime

Sub ChangeMsg_FontSize()

Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2")
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
'Give time to get it up
Application.Wait waitTime

'Select msgbox from Properties | Appearance box
SendKeys "{TAB}{TAB}{TAB}{down}{down}{down}{down}{down}{down}{down}", True
'select font = same font-next size up
SendKeys "{TAB}{TAB}{down}", True
'select Apply button
SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{enter}", True
'now enter to dismiss
SendKeys "{enter}", True
'Now test via msgbox
MsgBox "Testing Size of Font"
End Sub

Sub ResetMsg()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2")
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
'Give time to get it up
Application.Wait waitTime

'Select msgbox from Properties | Appearance box
SendKeys "{TAB}{TAB}{TAB}{down}{down}{down}{down}{down}{down}{down}", True
'select font = same font-next size up
SendKeys "{TAB}{TAB}{up}", True
'select Apply button
SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{enter}", True
'now enter to dismiss
SendKeys "{enter}", True
'Now test via msgbox
MsgBox "Testing Size of Font"

End Sub


Ivan



Posted by Eli Weiss on February 15, 2002 3:32 AM

...and i thought that it is so simple.....

Thank you and much appreciation
Eli