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

Форум по вопросам применения и программирования в Visio
Текущее время: 20 июл 2018, 14:31

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


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


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Изменить стиль направляющей линии (aka guide-line)
СообщениеДобавлено: 03 июл 2017, 11:10 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
В англоязычных форумах люди часто жалуются, что в версиях Visio 2013/2016 направляющую линию (aka guide-line) не видно
Изображение
Anonymous в visio.uservoice.com ветке UI and look & feel писал(а):
вот еще несколько примеров:
Visio Professional 2016 Guides Disappear When Moved
There is a problem with the Guide lines
Visio Guidlines does not visible after placing
Проблема в данном случае заключалась в том, что в этих версиях изменились настройки стиля Guide - линии вместо привычного в ранних версиях синего цвета, имеют серый цвет. который сливается с линиями сетки (если она включена) ! в последнем обсуждении я опубликовал текст скрипта который изменяет цвет линии на более заметный ! но позабыл поделиться этим скриптом с русскоязычными пользователями Изображение
в апреле разработчики из MS IDC писали что этот баг будет починен в ближайших апдейтах (>16.0.78xxx.xxxx). У меня стоит более ранняя сборка Visio 2016, поэтому я пока продолжаю пользоваться скриптом. кое кто из пользователей на тех форумах подтверждает, что теперь эти линии стали видны отчетливее.
Для тех кому трудно разглядеть на листе guide-line
Код:
ChangeGuideStyle
sub ChangeGuideStyle()
Dim App
dim Doc, pg
Dim i, sh
dim Nam
dim st
On Error Resume Next
set App = GetObject( , "Visio.Application")
If Err.number = 429 Then msgbox "No instance of the Visio application": Exit Sub
if App.Documents.Count = 0 then msgbox "No open documents": Exit Sub
set Doc = App.Activedocument
if msgbox (Doc.FullName, 4, "You want to fix the style of the guide line in document?") = 7 then Exit sub
set st = Doc.Styles.ItemU("Guide")
st.cellsSRC(1,2,1).formulaforceU = "Guard(RGB(0,0,255))"
st.cellsSRC(1,2,2).formulaforceU = "Guard(23)"
st.cellsSRC(1,2,0).formulaforceU = "0.04 mm"
End Sub

1. создать документ в блокноте aka notepad.exe
2. вставить в него содержимое скрипта
3. сохранить в формате txt, далее изменить расширение файла на vbs
4. если кликнуть дважды по файлу содержащему данный скрипт, произойдет изменение
настроек стиля линии Guide в активном документе.


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

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



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

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


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

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