Эта статья представляет метод, который позволяет просмотреть список всех доступных шрифтов в Excel. Хотя в самой программе Excel нет прямой функции для этого, вы можете воспользоваться макросом ПоказатьВсеШрифты, который создает временную панель инструментов и выводит список шрифтов на активном листе.
Код начинается с создания временной панели, на которую добавляется элемент управления "Font". Затем он сканирует все доступные шрифты и отображает их в столбце А. Кроме того, он демонстрирует, как выглядит текст с каждым шрифтом в столбце B, чтобы вы могли визуально оценить результат.
📌Скачать файл пример с макросом можно в конце статьи
Стоит учесть, что выполнение этого макроса может затратить ресурсы вашей системы, особенно если у вас много установленных шрифтов.
Давайте более подробнее разберем, как работает макрос:
- Создание временной панели CommandBar: В самом начале макрос создает временную панель CommandBar с помощью метода CommandBars.Add. Это делается с целью создания временного интерфейса, на который будет помещен элемент управления "Font".
- Добавление элемента управления "Font": После создания временной панели на нее добавляется элемент управления "Font". Этот элемент представляет собой список шрифтов, доступных в системе.
- Отображение списка шрифтов: Затем макрос сканирует список шрифтов, доступных через элемент управления "Font", и отображает их в столбце A активного листа. Это делается с использованием цикла For, который проходит по списку шрифтов и записывает их в ячейки столбца A.
- Демонстрация шрифтов в столбце B: После того как список шрифтов записан в столбец A, макрос также отображает, как будет выглядеть текст с каждым из этих шрифтов, в столбце B. Это делается путем установки свойства Font.Name для ячейки в столбце B, чтобы сделать текст визуально представимым.
- Настройка форматирования: Перед отображением шрифтов в столбцах A и B макрос очищает содержимое и форматирование ячеек, чтобы обеспечить чистый вывод. Также устанавливается автоматическая ширина столбцов для лучшего отображения данных.
- Удаление временной панели CommandBar: После того как список шрифтов отображен на листе, временная панель CommandBar удаляется с помощью метода Delete. Это сделано для очистки временных ресурсов и возвращения интерфейса Excel в исходное состояние.
Таким образом, процедура позволяет отобразить список всех установленных шрифтов в Excel, обеспечивая визуальное представление каждого шрифта.