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

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

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


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


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

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



Начать новую тему Ответить на тему  [ Сообщений: 8 ] 
Автор Сообщение
 Заголовок сообщения: как к линии прицепить текст?
СообщениеДобавлено: 01 мар 2016, 16:36 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Привет всем.
И снова вопрос - как к линии прицепить текст? Т.е. должна вставляться между центрами линия с таким текстом (текст, которые вписывает при даблклике по линии, а не отдельно добавленный). Выноски слишком много места жруть...рябит в глазах, а так много проще.

И еще сразу вопрос - хочу на скролинг+CTRL повесить размер текста. В Excel делал на зажатый контрл выпадение кастомного меню, а как тут быть?


Вложения:
screen.png
screen.png [ 3.01 Кб | Просмотров: 1012 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: RE: как к линии прицепить текст?
СообщениеДобавлено: 01 мар 2016, 17:29 
Не в сети
Бывалый
Аватара пользователя

Зарегистрирован: 12 май 2012, 15:16
Сообщений: 122
Очков репутации: 13

Добавить очки репутацииУменьшить очки репутации
powercat писал(а):
вопрос - как к линии прицепить текст? Т.е. должна вставляться между центрами линия с таким текстом (текст, которые вписывает при даблклике по линии, а не отдельно добавленный).
Код:
sh.Text = "что-то там"
вот только линия может быть под произвольным углом, текст добавленный таким способом будет неудобно читать
powercat писал(а):
Выноски слишком много места жруть...рябит в глазах, а так много проще.
нередко бывают ситуации когда длина линии меньше размера вставленного текста. тогда без выноски не обойтись
powercat писал(а):
В Excel делал на зажатый контрл выпадение кастомного меню, а как тут быть?
это как ?!?!?
powercat писал(а):
И еще сразу вопрос - хочу на скролинг+CTRL повесить размер текста.
а чем не вариант:
для увеличения - Ctrl + Shift + >
для уменьшения - Ctrl + Shift + >


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: RE: как к линии прицепить текст?
СообщениеДобавлено: 02 мар 2016, 08:28 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Евгени писал(а):
powercat писал(а):
вопрос - как к линии прицепить текст? Т.е. должна вставляться между центрами линия с таким текстом (текст, которые вписывает при даблклике по линии, а не отдельно добавленный).
Код:
sh.Text = "что-то там"
вот только линия может быть под произвольным углом, текст добавленный таким способом будет неудобно читать
powercat писал(а):
Выноски слишком много места жруть...рябит в глазах, а так много проще.
нередко бывают ситуации когда длина линии меньше размера вставленного текста. тогда без выноски не обойтись
powercat писал(а):
В Excel делал на зажатый контрл выпадение кастомного меню, а как тут быть?
это как ?!?!?
powercat писал(а):
И еще сразу вопрос - хочу на скролинг+CTRL повесить размер текста.
а чем не вариант:
для увеличения - Ctrl + Shift + >
для уменьшения - Ctrl + Shift + >
С зажатым CTRL - очень удобно, правая рука на мышке, левая на клаве. Зажимаю левый CTRL и жму правую мышь, выпадает меню, но там уже мои пункты, в частности - желаемые цвета заливки, или рамки...Могу выложить файлы. Там сделал еще проверку на версию офиса.
Вот как это выглядит
Вложение:
screen.png
screen.png [ 8.88 Кб | Просмотров: 951 ]
CTRL+Shift++ - это не вариант, т.к. для этого приходится отпускать мышь. Поэтому для визио и возникает вопрос - зажать CTRL, крутнуть колесо - увеличить или уменьшить этим шрифт, не отрываясь от мышки.


Последний раз редактировалось powercat 02 мар 2016, 08:38, всего редактировалось 2 раз(а).

Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: RE: как к линии прицепить текст?
СообщениеДобавлено: 02 мар 2016, 08:36 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Я добавляю линию так
Код:
Application.ActiveWindow.Page.DrawLine oneX, oneY, twoX, twoY


В нее надо вставить текст. Сам текст должен быть с переносом строки, и без заливки.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: RE: как к линии прицепить текст?
СообщениеДобавлено: 02 мар 2016, 08:44 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Евгени писал(а):
powercat писал(а):
В Excel делал на зажатый контрл выпадение кастомного меню, а как тут быть?
это как ?!?!?
думаю здесь имелось в виду, как ты это сделал в эксель (код) ? я не знаю такого способа
может это возможно адаптировать под визио...

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: RE: как к линии прицепить текст?
СообщениеДобавлено: 02 мар 2016, 08:59 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
Евгени писал(а):
powercat писал(а):
В Excel делал на зажатый контрл выпадение кастомного меню, а как тут быть?
это как ?!?!?
думаю здесь имелось в виду, как ты это сделал в эксель (код) ? я не знаю такого способа
может это возможно адаптировать под визио...


Я понял.
Вот архивчик. Его надо запулить в личную книгу макросов. В коде есть пояснения.
Вложение:
.rar [11.48 Кб]
Скачиваний: 67


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: RE: как к линии прицепить текст?
СообщениеДобавлено: 02 мар 2016, 10:16 
Не в сети
Administrator

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

Добавить очки репутацииУменьшить очки репутации
Код:
Sub ttt()
    oneX = 1#: oneY = 1#: twoX = 3#: twoY = 3#
    Set shpLine = ActiveWindow.Page.DrawLine(oneX, oneY, twoX, twoY)
    shpLine.Text = "232 м" & Chr(10) & "168x12"
    shpLine.Cells("TextBkgnd") = 0
End Sub

Так пойдет?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: RE: как к линии прицепить текст?
СообщениеДобавлено: 02 мар 2016, 10:30 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Tumanov писал(а):
Так пойдет?
Да, именно то, что требовалось! Благодарю!


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

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



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

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


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

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