Du kan hurtigt se, hvilke skrifttyper der er tilgængelige i Excel
Du kan nemt vælge skrifttypen til en celle. Men listen over installerede skrifttyper er lang. Hvis du leder efter den rigtige skrifttype til et display, eller hvis du vil eksperimentere lidt med skrifttyper, hjælper en makro dig.
Brug følgende makro, hvis du vil liste alle tilgængelige skrifttyper i kolonne A i en ny projektmappe:
Under skrifttyper Enter ()
Dim fontliste Som CommandBarControl, tæller som Integer
Application.ScreenUpdating = Falsk
Workbooks.Add
Angiv skrifttypeliste = Application.CommandBars.FindControl (ID: = 1728)
For tæller = 1 Til skrifttype list.ListCount
Med celler (tæller, 1)
.Værdi = Fontliste.Liste (tæller)
.Font.Name = Fontliste.Liste (tæller)
Afslut med
Næste tæller
Kolonner (1) .AutoFit
Application.ScreenUpdating = True
Afslut Sub
Excel indtaster navnet på hver skrifttype i cellerne og formaterer straks cellen i den relevante skrifttype. Følgende illustration viser, hvordan dette kan se ud:
