Change font of Msg Box displayed

[RAJESH1960]

Hello guys
When I run the code, a message box is displayed. Is it possible to change the font (size / Bold/ color) of the message displayed in a message box.? If so please share an example.

 

[My Aswer Is This]

Is that the result of using VBA or Userform.?

I would like to know how this was done also

 

[johnnyL]

My last post was an example of a simple userform.

Sub Test()
'
    Dim TestValue   As Long
'
    TestValue = 5
'
    If TestValue = 5 Then
'
'-----------------------------------------------------------------------------------
' Message box section
'-----------------------------------------------------------------------------------
        With Form_MessageBox
            .BackColor = RGB(0, 0, 255)                                             ' Background color of Message box ... RGB(0, 0, 255) = Blue
            .BorderColor = RGB(0, 0, 0)                                             ' Set border color ... RGB(0, 0, 0) = Black
            .Caption = Space(110) & "Title of Message Box"                          ' Title for the Message box ... Space command used for centering
'
'-----------------------------------------------------------------------------------
' Text message section
'-----------------------------------------------------------------------------------
            With .LabelMessage
                .BackColor = RGB(255, 255, 255)                                     ' Background color of test message area ... RGB(255, 255, 255) = White
                .Caption = "This is the first line of text." _
                        & vbLf & "This is a second line, if needed, etc."           ' Message(s) to display in the Message area
                .Font = ArialBlack                                                  ' Font for Message area
                .Font.Bold = True                                                   '
                .Font.Size = 36                                                     ' Set how big you want the text to be
            End With
'-----------------------------------------------------------------------------------
            .Height = .LabelMessage.Height + 70                                     ' Height of Message box
            .Width = .LabelMessage.Width + 30                                       ' Width of Message box
'-----------------------------------------------------------------------------------
            With .cmdOK
                .Top = .Parent.LabelMessage.Top + .Parent.LabelMessage.Height + 15
                .Left = .Parent.Width - (.Parent.Width / 2) - 21
            End With
'
            .Show                                                                   ' Show the Message box
        End With
    End If
End Sub

Sample workbook here <---

You can adjust the settings as needed. Color settings, Font settings, etc.

 

[johnnyL]

The 'If TestValue ...' at the top was just to show how it could be triggered. It has no other significance.

 

[RAJESH1960]

But I remember what I read from your link stating that there is a risk of excel crashing, if I try to use Userform to change the font or color of the message box.

 

[johnnyL]

I think you are confused. I think you are referring to a link that used API calls for the code.
This code is just regular excel code/settings.

 

[RAJESH1960]

You mean I can edit and include that in my code and get the required size of the font in my message box.

 

[johnnyL]

If you don't want to try it/ use it, your choice.

 

[johnnyL]

You mean I can edit and include that in my code and get the required size of the font in my message box.

If you want to.

Play with the sample file so you can see what changes you want to make, when you are done playing with it, then you can decide if you want to use it in your code in place of a regular MsgBox.

 

[johnnyL]

The code was the simplest I could think of to accomplish what you mentioned.

 

[RAJESH1960]

But how ? Just insert your code in a new module in my app and what line and where do I need to add in the code to get that.