ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Установка шрифта
3 сообщений из 3, страница 1 из 1
Установка шрифта
    #36215179
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Привет всем.
Вопрос прост, как установить шрифт на компьютере с помощью VBA?
Простым копированием в папку “fonts” не прокатывает. А вот если из папки “fonts” выбрать пункт в меню "установить шрифт", то все работает нормально. Что делает данная процедура? Может где-то регистрирует? Может в реестр что-то добавляет?
...
Рейтинг: 0 / 0
24.09.2009, 15:01:25
| Ответить | Цитировать | Написать  
Установка шрифта
    #36215981
<>
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
<>
Гость
Вот была тема
...
Рейтинг: 0 / 0
24.09.2009, 20:20:24
| Ответить | Цитировать | Написать  
Установка шрифта
    #36216973
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
25.09.2009, 12:36:24
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Установка шрифта
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36216973&tid=2179026]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 214ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 241ms
total:  559ms
созд. / загр.: 559ms
x
x
Закрыть


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