Список всех шрифтов в Экселе

@Artemo · Регистрация: 06.03.2010

Author24 — интернет-сервис помощи студентам

Подскажите,пожалуйста, как программно получить доступ ко всей коллекции шрифтов в Экселе?Чтобы через font задать, надо обязательно его имя знать.А коллекции нет, что ли?

@Vlanib · 14.01.2011, 22:28

Visual Basic

Sub ShowInstalledFonts()
Set FontNamesCtrl = Application.CommandBars("Formatting").FindControl(ID:=1728)
For i = 0 To FontNamesCtrl.ListCount - 1
    Cells(i + 1, 1) = FontNamesCtrl.List(i + 1)
Next
End Sub

@Artemo 20 / 6 / 1 Регистрация: 06.03.2010 Сообщений: 74
		1
	Список всех шрифтов в Экселе 14.01.2011, 21:30. Показов 3634. Ответов 1 Метки нет (Все метки) Подскажите,пожалуйста, как программно получить доступ ко всей коллекции шрифтов в Экселе?Чтобы через font задать, надо обязательно его имя знать.А коллекции нет, что ли? 0

	14.01.2011, 22:28