fonts

[Mitko]

Hi,
how can I add a combobox that lists fonts intalled on my computer. Thanks in
advance

--
_________________________________________
Mitko Kostov
ICQ#: 67068080
More ways to contact me: http://wwp.icq.com/67068080
_________________________________________

 

[Doug Robbins - Word MVP]

Hi Mitko,

The following code in the Initialize event of a userform that contains a
combobox ComboBox1, will populate that combobox with the fonts installed on
the computer:

Dim i As Integer
For i = 1 To Application.FontNames.Count
ComboBox1.AddItem Application.FontNames(i)
Next i

Please respond to the newsgroups for the benefit of others who may be
interested.

Hope this helps
Doug Robbins - Word MVP