Wingdings in userform not displaying

[RobbieC]

Hi there, I have a speadsheet that uses Wingdings in a userform. I use Chr(254) & Chr(168) to simulate checkboxes.

This all works fine for every machine that this spreadsheet runs on (using Office 2010)

However, I have one machine that is refusing to display these characters. Instead, a black 'diamond' with a ? is displayed...

I have checked that Wingdings is installed. It is. When I open the userform up in the VB window, it is showing the correct characters. Very strange!

I can even get the Wingdings characters to appear in a cell in a spreadsheet, but NOT when the userform launches.... Just on this one machine...

The only thing I can think of is that the Windows 10 was originally German language and I removed it and installed English. I'm pretty sure that the Wingdings were working before then...

Has anyone got any ideas where this conflict might be coming from?

If you can help, I'd be very grateful... this is driving me bonkers

Rob

 

[Jaafar Tribak]

Are you setting the font at design time or via code at runtime ?

If at runtime then don not forget to set the font charset property to SYMBOL_CHARSET

Something like this :

Private Sub UserForm_Initialize()
    Label1.Font.Name = "Wingdings"
    Label1.Font.Charset = 2
    Label1.Caption = Chr(254)
End Sub

 

[RobbieC]

Hi Jaafar, thanks for replying.

I'm not setting the font via VB. The labels are just font selected as Wingdings in the designer window

This has not been an issue with any other machine though

I shall give it a go and see what happens

 

[RobbieC]

No, unfortunately that hasn't sorted it

It seems to be a system issue. I uninstalled the OS German language pack as I noticed installation windows were in German.

But I had already successfully used the spreadsheet with the userform wingdings last week. It was only today AFTER the system language change

Any thoughts?

 

[Jaafar Tribak]

Are you using windows 10 ?
A quick google search came up with this:

https://support.microsoft.com/en-nz/help/3083806/why-does-some-text-display-with-square-boxes-in-some-apps-on-windows-1