Na prvi pogled možete vidjeti koji su fontovi dostupni u Excelu
Možete jednostavno odabrati font za ćeliju. No popis instaliranih fontova dugačak je. Ako tražite pravi font za zaslon ili želite malo eksperimentirati sa fontovima, makro će vam pomoći.
Upotrijebite sljedeću makronaredbu ako želite navesti sve dostupne fontove u stupcu A nove radne knjige:
Podfontovi Enter ()
Zatamni popis fontova kao CommandBarControl, brojač kao cijeli broj
Application.ScreenUpdating = Netačno
Radne bilježnice.Dodaj
Postavi popis fontova = Application.CommandBars.FindControl (ID: = 1728)
Za brojač = 1 Na popis fontova.ListCount
Sa ćelijama (brojač, 1)
.Vrednost = Popis fontova. Popis (brojač)
.Font.Name = Font list.List (counter)
Završi s
Sljedeći brojač
Stupci (1) .AutoFit
Application.ScreenUpdating = Istina
Kraj podm
Excel unosi naziv svakog fonta u ćelije i odmah formatira ćeliju odgovarajućim fontom. Sljedeća ilustracija prikazuje kako ovo može izgledati: