Du kan snabbt se vilka typsnitt som finns i Excel
Du kan enkelt välja teckensnitt för en cell. Men listan över installerade teckensnitt är lång. Om du letar efter rätt typsnitt för en skärm eller om du vill experimentera lite med teckensnitt, hjälper ett makro dig.
Använd följande makro om du vill lista alla tillgängliga teckensnitt i kolumn A i en ny arbetsbok:
Underteckensnitt Enter ()
Dim teckensnittslista Som CommandBarControl, räknare som heltal
Application.ScreenUpdating = Falskt
Arbetsböcker.Lägg till
Ange teckensnittslista = Application.CommandBars.FindControl (ID: = 1728)
För räknare = 1 Till teckensnittslista.ListCount
Med celler (räknare, 1)
.Value = Font list.List (counter)
.Font.Name = Teckensnittslista.Lista (räknare)
Sluta med
Nästa räknare
Kolumner (1). AutoFit
Application.ScreenUpdating = True
Avsluta Sub
Excel anger namnet på varje teckensnitt i cellerna och formaterar omedelbart cellen i lämpligt teckensnitt. Följande illustration visar hur detta kan se ut:
