Na pierwszy rzut oka możesz zobaczyć, które czcionki są dostępne w programie Excel
Możesz łatwo wybrać czcionkę dla komórki. Ale lista zainstalowanych czcionek jest długa. Jeśli szukasz odpowiedniej czcionki do wyświetlacza lub chcesz trochę poeksperymentować z czcionkami, pomoże Ci makro.
Użyj następującego makra, jeśli chcesz wyświetlić listę wszystkich dostępnych czcionek w kolumnie A nowego skoroszytu:
Czcionki podrzędne Wprowadź ()
Dim lista czcionek As CommandBarControl, licznik As Integer
Application.ScreenUpdating = Fałsz
Skoroszyty.Dodaj
Ustaw listę czcionek = Application.CommandBars.FindControl (ID: = 1728)
Dla licznika = 1 Do listy czcionek.ListCount
Z komórkami (licznik, 1)
.Value = Lista czcionek.Lista (licznik)
.Font.Name = Lista czcionek.List (licznik)
Kończyć z
Następny licznik
Kolumny (1) .AutoFit
Application.ScreenUpdating = Prawda
Napis końcowy
Excel wprowadza nazwę każdej czcionki w komórkach i natychmiast formatuje komórkę odpowiednią czcionką. Poniższa ilustracja pokazuje, jak to może wyglądać:
