Du kan raskt se hvilke fonter som er tilgjengelige i Excel
Du kan enkelt velge skrifttype for en celle. Men listen over installerte fonter er lang. Hvis du leter etter den riktige skriften for en skjerm eller hvis du vil eksperimentere litt med fonter, vil en makro hjelpe deg.
Bruk følgende makro hvis du vil vise alle tilgjengelige fonter i kolonne A i en ny arbeidsbok:
Sub Fonts Enter ()
Dim skriftliste Som CommandBarControl, teller som heltall
Application.ScreenUpdating = Falsk
Arbeidsbøker.Legg til
Angi skriftliste = Application.CommandBars.FindControl (ID: = 1728)
For teller = 1 Til skriftliste.ListCount
Med celler (teller, 1)
.Value = Font list.List (counter)
.Font.Name = Fontliste.Liste (teller)
Slutt med
Neste teller
Kolonner (1). AutoFit
Application.ScreenUpdating = True
Slutt Sub
Excel skriver inn navnet på hver skrift i cellene og formaterer umiddelbart cellen i den riktige skriften. Følgende illustrasjon viser hvordan dette kan se ut:
