Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Detecting UNICODE Fonts
- Thread starter greygrey
- Start date
hi greygrey,
add this:
I have a user form called "gui" and a listbox named "fontlist". Just replace those items by your own object names and... voilà!
Dim aFont
For Each aFont In FontNames
If InStr(1, aFont, "Unicode"
<> 0 Then
gui.fontlist.AddItem aFont
End If
Next
MakeItSo
Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:
add this:
I have a user form called "gui" and a listbox named "fontlist". Just replace those items by your own object names and... voilà!
Dim aFont
For Each aFont In FontNames
If InStr(1, aFont, "Unicode"
<> 0 Thengui.fontlist.AddItem aFont
End If
Next
MakeItSo
Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
- Locked
- Question