На први поглед можете видети који су фонтови доступни у Екцелу
Можете лако изабрати фонт за ћелију. Али списак инсталираних фонтова је дугачак. Ако тражите прави фонт за екран или желите мало да експериментишете са фонтовима, макро ће вам помоћи.
Користите следећи макро ако желите да наведете све доступне фонтове у колони А нове радне свеске:
Подфонтови Ентер ()
Затамните листу фонтова као ЦоммандБарЦонтрол, бројач Ас Интегер
Апплицатион.СцреенУпдатинг = Нетачно
Воркбоокс.Адд
Постави листу фонтова = Апплицатион.ЦоммандБарс.ФиндЦонтрол (ИД: = 1728)
За бројач = 1 На листу фонтова.ЛистЦоунт
Са ћелијама (бројач, 1)
.Валуе = Листа фонтова. Листа (бројач)
.Фонт.Наме = Фонт лист.Лист (цоунтер)
Завршити
Следећи бројач
Колоне (1) .АутоФит
Апплицатион.СцреенУпдатинг = Тачно
Енд Суб
Екцел уноси назив сваког фонта у ћелије и одмах форматира ћелију одговарајућим фонтом. Следећа илустрација приказује како ово може изгледати:
