Na prvi pogled si lahko ogledate, katere pisave so na voljo v Excelu
Pisavo za celico lahko preprosto izberete. Toda seznam nameščenih pisav je dolg. Če iščete pravo pisavo za zaslon ali če želite malo eksperimentirati s pisavami, vam bo v pomoč makro.
Če želite v stolpec A novega delovnega zvezka navesti vse razpoložljive pisave, uporabite naslednji makro:
Podnapisi Enter ()
Zatemni seznam pisav kot CommandBarControl, števec As Integer
Application.ScreenUpdating = Napačno
Delovni zvezki.Dodaj
Nastavi seznam pisav = Application.CommandBars.FindControl (ID: = 1728)
Za števec = 1 Na seznam pisav.ListCount
S celicami (števec, 1)
.Value = Seznam pisav. Seznam (števec)
.Font.Name = Seznam pisav. Seznam (števec)
Končaj s
Naslednji števec
Stolpci (1) .AutoFit
Application.ScreenUpdating = Res
End Sub
Excel v celice vnese ime vsake pisave in celico takoj oblikuje v ustrezni pisavi. Naslednja slika prikazuje, kako lahko to izgleda:
