Можете да видите с един поглед кои шрифтове са налични в Excel
Можете лесно да изберете шрифта за клетка. Но списъкът с инсталирани шрифтове е дълъг. Ако търсите подходящия шрифт за дисплей или искате да експериментирате малко с шрифтове, макросът ще ви помогне.
Използвайте следния макрос, ако искате да изброите всички налични шрифтове в колона А на нова работна книга:
Под шрифтове Enter ()
Затъмнете списъка с шрифтове като CommandBarControl, отбройте As Integer
Application.ScreenUpdating = False
Работни книги
Задаване на списък с шрифтове = Application.CommandBars.FindControl (ID: = 1728)
За брояч = 1 Към списъка с шрифтове.ListCount
С клетки (брояч, 1)
.Value = Списък на шрифтове. Списък (брояч)
.Font.Name = Списък на шрифтове. Списък (брояч)
Край с
Следващ брояч
Колони (1). AutoFit
Application.ScreenUpdating = Вярно
End Sub
Excel въвежда името на всеки шрифт в клетките и веднага форматира клетката в съответния шрифт. Следващата илюстрация показва как може да изглежда това: