How to make a macro display all available fonts including true type fonts

Posted by Kurt on August 18, 2000 6:09 PM

Hello everyone,

Is there a macro routine that will display all available fonts including true type fonts?

Thanks again,

Kurt

Posted by Ivan Moala on August 19, 0100 3:23 AM

Kurt try this to get a list of fonts
starting from A1

Sub GetFonts()
Dim Fonts
Dim x As Integer

x = 1
Set Fonts = Application.CommandBars.FindControl(Id:=1728)
On Error Resume Next
KeepGoing:
Cells(x, 1) = Fonts.List(x)
If Err.Number &LT;&GT; 0 Then GoTo Fin
x = x + 1
GoTo KeepGoing

Fin:
Set Fonts = Nothing

End Sub