All Forums
 Категория Visio
 Форум Вопросы и ответы
 Выбор нужного шрфта
Author Previous Topic Topic Next Topic  

lantari

Russia
20 Posts
Posted - 03/01/2004 :  12:13:17
Подскажите, pls, как можно в макросе на VBA указать шейпу каким шрифтом выводить надпись. Причем нужно, что бы шрифт задавался своим именем (названиеем) а не номером под которым он установлен в системе.

При использовании:
WorkShape.Characters.CharProps(visCharacterFont) = 152
иногда получается ерунда. Часть текста выводится каким попало шрифтом.

Или как определить номер шрифта по его названию?

Tumanov

Russia
1198 Posts
Posted - 03/01/2004 :  15:39:47
Обратная задача вроде решается. То есть
Debug.Print Application.Documents(1).Fonts(1).Name пишет Arial (у меня)
Debug.Print Application.Documents(1).Fonts(85).Name - Arial Black
Значит перебором всей коллекции можно проследить эту связь и в обратную сторону.
Go to Top of Page

lantari

Russia
20 Posts
Posted - 03/02/2004 :  05:24:00
Путем нехитрых манипуляций выяснил, что в разных документах разные списки (последовательности) шрифтов, причем некоторые шрифты занимают по несколько номеров списка.
Пока буду использовать функцию поиска с перебором.
Может кто-нибудь еще что подскажет.
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)