Na prvý pohľad vidíte, ktoré písma sú k dispozícii v programe Excel
Písmo pre bunku môžete ľahko vybrať. Zoznam nainštalovaných písem je však dlhý. Ak hľadáte správne písmo pre displej alebo chcete s písmami trochu experimentovať, pomôže vám makro.
Ak chcete zobraziť všetky dostupné písma v stĺpci A nového zošita, použite nasledujúce makro:
Podfonty Enter ()
Stmaviť zoznam písem ako CommandBarControl, počítadlo ako celé číslo
Application.ScreenUpdating = False
Zošity. Pridať
Nastaviť zoznam písem = Application.CommandBars.FindControl (ID: = 1728)
Pre počítadlo = 1 Do zoznamu písem.ListCount
S bunkami (počítadlo, 1)
.Value = Zoznam písem. Zoznam (počítadlo)
.Font.Name = Zoznam písem. Zoznam (počítadlo)
Ukončiť s
Ďalší pult
Stĺpce (1). AutoFit
Application.ScreenUpdating = True
Koniec pod
Excel zadá do buniek názov každého písma a bunku okamžite naformátuje v príslušnom písme. Nasledujúci obrázok ukazuje, ako to môže vyzerať: