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

Форум по вопросам применения и программирования в Visio
Текущее время: 19 мар 2024, 14:15

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


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


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

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



Начать новую тему Ответить на тему  [ Сообщений: 7 ] 
Автор Сообщение
 Заголовок сообщения: Font Cell
СообщениеДобавлено: 22 мар 2018, 12:14 
Не в сети
Постоянный участник

Зарегистрирован: 24 авг 2016, 22:21
Сообщений: 72
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Font Cell (Character Section)
Represents the number of the font used to format the text. Font numbers vary according to the fonts installed on your system. The number 0 represents the default font, which is typically Arial.

Подскажите, пожалуйста, уважаемые форумчане, как программно задать шрифт текста шейпа?
Если я правильно понял, значение в ячейке Font зависит от того, сколько шрифтов установлено у пользователя. Другими словами если задать строго числовое значение в ячейке Font, то у разных пользователей текст искомого шейпа будет написан разными шрифтами.

А нужно строго задать определенный шрифт. Будем считать, что он установлен у всех пользователей.

Есть возможность задать строго имя шрифта (к примеру, "Verdana")?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Font Cell
СообщениеДобавлено: 22 мар 2018, 12:21 
Не в сети
Постоянный участник

Зарегистрирован: 24 авг 2016, 22:21
Сообщений: 72
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
upd: Что-то я запутался.
Открываю один документ, в котором шрифт текста шейпа (к примеру, "Gost Type A") указан в Font Cell =41
В другом документе другой шейп с таким же шрифтом уже содержит значение 68 в Font Cell.
:wall:


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Font Cell
СообщениеДобавлено: 22 мар 2018, 12:33 
Не в сети
Новичок

Зарегистрирован: 01 янв 2010, 05:46
Сообщений: 45
Откуда: ЕАО, Россия
Использую Visio c: 2010
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Описание функций Font (добавлена в 2013) и FontToID (добавлена в 2010) по-русски
Насколько я помню таких шрифтов два ttf и другое расширение
Эти гостовские шрифты для системы не родные. Возможно они в таком порядке прописались в систему


Последний раз редактировалось god-udach 22 мар 2018, 13:39, всего редактировалось 3 раз(а).

Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Font Cell
СообщениеДобавлено: 22 мар 2018, 12:42 
Не в сети
Новичок

Зарегистрирован: 01 янв 2010, 05:46
Сообщений: 45
Откуда: ЕАО, Россия
Использую Visio c: 2010
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Была тема про мороку с вышеупомянутым шрифтом.
Попробуйте использовать шрифт ISOCPEUR, разницу только эксперт почует


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Font Cell
СообщениеДобавлено: 22 мар 2018, 12:51 
Не в сети
Ветеран

Зарегистрирован: 30 июл 2014, 14:28
Сообщений: 534
Использую Visio c: 2008
Очков репутации: 107

Добавить очки репутацииУменьшить очки репутации
Попробуй:

Код:
Sub FontChange()
Dim f As String, fIndex As Integer

f = "GOST type A"
fIndex = ActiveDocument.Fonts(f).Index

ActiveWindow.Selection(1).Cells("Char.Font[1]").FormulaU = fIndex

End Sub

_________________
GitHub
Yandex-диск с набором полезных утилит


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Font Cell
СообщениеДобавлено: 22 мар 2018, 12:59 
Не в сети
Постоянный участник

Зарегистрирован: 24 авг 2016, 22:21
Сообщений: 72
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Логично! Узнать индекс нужного шрифта и подставить его в FontCell.
Помогло!
Спасибо!


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Font Cell
СообщениеДобавлено: 22 мар 2018, 13:05 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 2251
Очков репутации: 100626

Добавить очки репутацииУменьшить очки репутации
Я бы еще попробовал создать стиль с нужным шрифтом.
Тогда переключение шрифта может вообще не понадобиться.
А если понадобится, то стиль можно назначить непосредственно по имени.
-------
А самое главное, о чем я обычно упоминаю в таких топиках (но народ это игнорирует), так это то, что не нужно бы связываться с такими шрифтами.
ЕСКД допускает при машинном выпуске документации использовать шрифты, отличные от чертежного. Нужно ткнуть свой отдел нормализации и стандартизации в это положение. Или, если уж нужно однообразие, закрепить под это дело один из обычных шрифтов в стандарте предприятия. Сразу снимется куча проблем.


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

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



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

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


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

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