Microsoft Office Tutorials and References
In Depth Information
VBA Techniques
Next i
‘ Delete temporary CommandBar
TempBar.Delete
End Sub
As an option, you can display each font name in the actual font (as shown in Figure
11-15). To do so, add this statement inside the For-Next loop:
Cells(i+1,1).Font.Name = FontList.List(i+1)
Be aware, however, that using many fonts in a workbook can eat up lots of system
resources, and it could even crash your system.
This procedure is available on the companion CD-ROM. The file is named list fonts.xlsm .
Figure 11-15: Listing font names in the actual fonts.
 
Search JabSto ::




Custom Search