Puteți vedea dintr-o privire ce fonturi sunt disponibile în Excel
Puteți selecta cu ușurință fontul unei celule. Dar lista fonturilor instalate este lungă. Dacă sunteți în căutarea fontului potrivit pentru un afișaj sau dacă doriți să experimentați puțin cu fonturi, o macro vă va ajuta.
Utilizați următoarea macro dacă doriți să enumerați toate fonturile disponibile în coloana A a unui nou registru de lucru:
Sub fonturi Enter ()
Reduceți lista de fonturi Ca CommandBarControl, contorizați Ca întreg
Application.ScreenUpdating = Fals
Cărți de lucru.Adăugare
Set font list = Application.CommandBars.FindControl (ID: = 1728)
For counter = 1 To font list.ListCount
Cu celule (contor, 1)
.Value = Lista de fonturi. Listă (contor)
.Font.Name = Lista de fonturi. Listă (contor)
Se termina cu
Următorul contor
Coloane (1) .AutoFit
Application.ScreenUpdating = Adevărat
Sfârșitul Sub
Excel introduce numele fiecărui font în celule și formată imediat celula în fontul corespunzător. Următoarea ilustrație arată cum poate arăta acest lucru:
