Вы можете сразу увидеть, какие шрифты доступны в Excel
Вы можете легко выбрать шрифт для ячейки. Но список установленных шрифтов длинный. Если вы ищете подходящий шрифт для дисплея или хотите немного поэкспериментировать со шрифтами, вам поможет макрос.
Используйте следующий макрос, если вы хотите перечислить все доступные шрифты в столбце A новой книги:
Дополнительные шрифты Enter ()
Тусклый список шрифтов как CommandBarControl, счетчик как целое число
Application.ScreenUpdating = False
Рабочие тетради. Добавить
Установить список шрифтов = Application.CommandBars.FindControl (ID: = 1728)
Для counter = 1 В список шрифтов.
С ячейками (счетчик, 1)
.Value = Список шрифтов. Список (счетчик)
.Font.Name = Список шрифтов. Список (счетчик)
Конец с
Следующий счетчик
Колонны (1).
Application.ScreenUpdating = True
Конец подписки
Excel вводит имя каждого шрифта в ячейки и сразу же форматирует ячейку соответствующим шрифтом. На следующем рисунке показано, как это может выглядеть:
