powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Установка шрифта
3 сообщений из 3, страница 1 из 1
Установка шрифта
    #36215179
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем.
Вопрос прост, как установить шрифт на компьютере с помощью VBA?
Простым копированием в папку “fonts” не прокатывает. А вот если из папки “fonts” выбрать пункт в меню "установить шрифт", то все работает нормально. Что делает данная процедура? Может где-то регистрирует? Может в реестр что-то добавляет?
...
Рейтинг: 0 / 0
Установка шрифта
    #36215981
<>
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот была тема
...
Рейтинг: 0 / 0
Установка шрифта
    #36216973
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо, гостю.
Похоже нужно это.
Код: plaintext
1.
2.
    Set WSH = CreateObject("WScript.Shell")
    WSH.Run "RunDll32.exe gdi32.dll,AddFontResourceA " & _
           fso.GetBaseName(WSH.SpecialFolders("Fonts") & "\Barcode.ttf")
или
Код: plaintext
1.
2.
    Set WSH = CreateObject("WScript.Shell")
    WSH.Run "RunDll32.exe win32api.dll,AddFontResource " & _
           fso.GetBaseName(WSH.SpecialFolders("Fonts") & "\Barcode.ttf")
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Установка шрифта
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]