Jūs varat uzreiz redzēt, kuri fonti ir pieejami programmā Excel
Jūs varat viegli izvēlēties šūnas fontu. Bet instalēto fontu saraksts ir garš. Ja jūs meklējat pareizo displeja fontu vai vēlaties nedaudz eksperimentēt ar fontiem, jums palīdzēs makro.
Izmantojiet šo makro, ja vēlaties jaunās darbgrāmatas A slejā uzskaitīt visus pieejamos fontus:
Ievadiet apakšfonus ()
Fontu saraksts tiek aptumšots kā CommandBarControl, skaitītājs - kā vesels skaitlis
Application.ScreenUpdating = Nepareizi
Darbgrāmatas. Pievienot
Iestatīt fontu sarakstu = Application.CommandBars.FindControl (ID: = 1728)
Skaitītājam = 1 Fontu sarakstam. ListCount
Ar šūnām (skaitītājs, 1)
.Value = Fontu saraksts. Saraksts (skaitītājs)
.Font.Name = Fontu saraksts. Saraksts (skaitītājs)
Beigt ar
Nākamais skaitītājs
Kolonnas (1). AutoFit
Application.ScreenUpdating = Patiess
Beigt apakš
Excel šūnās ievada katra fonta nosaukumu un nekavējoties formatē šūnu ar atbilstošu fontu. Sekojošā ilustrācija parāda, kā tas var izskatīties:
