Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Установка шрифта / 3 сообщений из 3, страница 1 из 1
24.09.2009, 15:01:25
    #36215179
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установка шрифта
Привет всем.
Вопрос прост, как установить шрифт на компьютере с помощью VBA?
Простым копированием в папку “fonts” не прокатывает. А вот если из папки “fonts” выбрать пункт в меню "установить шрифт", то все работает нормально. Что делает данная процедура? Может где-то регистрирует? Может в реестр что-то добавляет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.09.2009, 20:20:24
    #36215981
<>
<>
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установка шрифта
Вот была тема
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2009, 12:36: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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Установка шрифта / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 508ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2179026]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 192ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 234ms
total:  508ms
x
x
Закрыть


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