Dealing with specia characters, symbols and fonts in vba.

[kelly mort]

Hi,
I have been doing some reading for a while now, trying to figure out a way to get special characters display in a message box alert but I couldn't do that.

Now I have a few questions:
1. Can a message box display those characters? - for example I tried this code:

    Sub getsymbol ()
      MsgBox chr(34)
   End Sub

From the symbol list, the code 34 is for a pair of scissors (wingdings font).

2. If message box can't do that job, can it be displayed on controls such as labels ?

3. Do I have to specify the fonts and if yes, how do I do that?

Thanks in advance.
Kelly

 

[Rick Rothstein]

I believe the font for a MessageBox is controlled by Windows. I think you can change it, but it would become universal for all Window programs so I don't think it is a good idea to mess with it. On top of that, all text in a MessageBox must be the same so you cannot have normal text mixed with Wingding text... this same restriction applies to TextBoxes and Labels in Excel as well.

 

[johnnyL]

@kelly mort I'm confused. Chr(34) = " a quotation mark

Chr codes from 32 to 255
That page says Char(), but Chr is what you care about.

 

[johnnyL]

Here is some code that you can run separately, Debug window has a maximum amount it can display. So it will take two different runs.

Sub ChrTest()
'
    For I = 1 To 128
        Debug.Print "Chr(" & I & ") = " & Chr(I)
    Next
'
'    For J = 129 To 255
'        Debug.Print "Chr(" & I & ") = " & Chr(I)
'    Next
End Sub

 

[kelly mort]

@kelly mort I'm confused. Chr(34) = " a quotation mark

Chr codes from 32 to 255
That page says Char(), but Chr is what you care about.

When I checked it from the insert menu, and changed the font to wingdings, that's what it showed.

It's true the message box displayed quotation marks.

 

[kelly mort]

Thanks @Rick Rothstein and @johnnyL for the guide.

I will keep on reading to see what I can do afterwards.

I am very grateful.