Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 29 мар 2024, 10:50

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: Как получить название шрифта
СообщениеДобавлено: 24 июн 2015, 16:06 
Не в сети

Зарегистрирован: 24 июн 2015, 15:12
Сообщений: 12
Использую Visio c: 2003
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Добрый день!
Подскажите, пожалуйста, как получить название используемого шрифта.
При выполнении следующего кода получаем лишь номер шрифта в некой неведомой таблице...
Код:
Debug.Print "шрифт текста = " & sh.CellsSRC(visSectionCharacter, 0, visCharacterFont).Result(visCharacterFont)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Как получить название шрифта
СообщениеДобавлено: 24 июн 2015, 16:10 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Код:
Dim sh As Shape
Set sh = ActiveWindow.Selection(1)
Dim n As Integer
n = sh.CellsSRC(visSectionCharacter, 0, visCharacterFont).Result(visCharacterFont)
MsgBox "шрифт текста выделенного шейпа: " & ActiveDocument.Fonts.ItemFromID(n).Name

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Как получить название шрифта
СообщениеДобавлено: 24 июн 2015, 16:16 
Не в сети

Зарегистрирован: 24 июн 2015, 15:12
Сообщений: 12
Использую Visio c: 2003
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate
Спасибо !!!
В одной строке написал только
Код:
ActiveDocument.Fonts.ItemFromID(sh.CellsSRC(visSectionCharacter, 0, visCharacterFont).Result(visCharacterFont)).Name


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 3 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB