Näete lühidalt, millised fondid on Excelis saadaval
Lahtri fondi saate hõlpsalt valida. Kuid installitud fontide loend on pikk. Kui otsite kuvarile õiget fonti või soovite natuke fontidega katsetada, aitab teid makro.
Kasutage järgmist makro, kui soovite uue töövihiku veerus A loetleda kõik saadaolevad fondid:
Alamfondid Enter ()
Fontide nimekirja hämardamine CommandBarControlina, loendur täisarvuna
Application.ScreenUpdating = Vale
Töövihikud. Lisa
Fontide loendi määramine = Application.CommandBars.FindControl (ID: = 1728)
Loenduri jaoks = 1 Fondiloendisse.ListCount
Lahtritega (loendur, 1)
.Value = Font list.List (loendur)
.Font.Name = Fondiloend. Loend (loendur)
Lõpeta
Järgmine loendur
Veerud (1). AutoFit
Application.ScreenUpdating = Tõsi
End Sub
Excel sisestab lahtritesse iga fondi nime ja vormistab lahtri kohe sobivas kirjas. Järgmine illustratsioon näitab, kuidas see välja võib näha:
