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

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

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


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


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

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



Начать новую тему Ответить на тему  [ Сообщений: 57 ]  На страницу Пред.  1, 2, 3
Автор Сообщение
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 16:11 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Могут обвинить в ереси и сжечь на костре).


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 16:17 
Не в сети
Content manager
Content manager
Аватара пользователя

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

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 16:23 
Не в сети
Новичок

Зарегистрирован: 20 ноя 2014, 10:46
Сообщений: 26
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
pmspecial писал(а):
просто ситуация такая, что я сам, скорее всего, разберусь, но надежный макрос не создам, а вот те кто потом эти документы актуализировать будут.... меня проклянут
дык Robink уже все сделал и не надо его создавать. думаю там все хорошо и никакого проклинать не придется :)
.... работает :shock: .... и коментарий исчерпывающий, особенно про подключаемую библиотеку :o ....
Эт я очень удачно к вам господа зашёл.... :)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 16:32 
Не в сети
Новичок

Зарегистрирован: 20 ноя 2014, 10:46
Сообщений: 26
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Robink писал(а):
1 Создайте документ визио или возьмите свой документ, главное чтобы был не пустой, данные выгр из него
2 Откройте редактор VBA (alt+f11)
3 Сверху в меню нажмите Insert, выберите Module
4. Слева (где структура проекта) найдите этот модуль, это будет модуль1, откройте его
5. Скопируйте туда код
6. Нажмите (сверху) Tools, References
7. Поставти галку напротив Microsoft Excel 14.0 Object Lybrary
8. Создайте книгу эксель (1.xlsx) в папке 1 на диске D
9. Пробуйте запускать марос Get1
10. Смотрите что в доке эксель, возможно придется на ленте в экселе выбрать Вид/отобразить
11. Отредактируйте что нужно в экселе, сохр книгу
12 Запустите макрос Set1
Robink Респект и Уважение :)

:ugeek: (это я про себя :) )
Все аккуратненько скопировал, комментарий сохранил, буду юзать и добрыми словами Вас вспоминать.....
Уже разобрался как внешний файл другой использовать и даже осознал, что макросу время на работу надо, т.е. сразу после запуска макроса во внешний файл теперь не лезу, может какой нибудь индикатор завершения работы макроса еще прилажу и будет совсем счастье.... но оно и так великолепно :!:

P.S.

Тему и правда можно в Программирование уносить....


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 16:32 
Не в сети
Content manager
Content manager
Аватара пользователя

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

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 16:36 
Не в сети
Новичок

Зарегистрирован: 20 ноя 2014, 10:46
Сообщений: 26
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
Оффтоп:
Robink писал(а):
Могут обвинить в ереси и сжечь на костре).
всех пользователей форума или только советчиков ?
и вообще Восток дело тонкое


Я про вас, господа, никому ничего не скажу, ни в чем не сознаюсь, никому не выдам....даже если пытать будут :)
Но если медаль дадут, то милости просим, перешлю всем участникам :D ничего себе не присвою ;)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 16:37 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
А с гиперссылками вопрос решился?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 16:42 
Не в сети
Новичок

Зарегистрирован: 20 ноя 2014, 10:46
Сообщений: 26
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Robink писал(а):
А с гиперссылками вопрос решился?


Не все так сразу, тут такие просторы открылись, голова кругом, но я почти уверен, что решу.... там ведь только знай адреса элементов шейпа подставляй в макрос и все.... но если упрусь :wall: , то я вернусь ... :)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 16:45 
Не в сети
Content manager
Content manager
Аватара пользователя

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

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 17:16 
Не в сети
Новичок

Зарегистрирован: 20 ноя 2014, 10:46
Сообщений: 26
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
Robink, я до сего момента твой код смотрел по диагонали. Ибо был уверен что за спиной pmspecial стоит моджахед и смотрит, чтоб макрос не запускал.
но думаю не проблема сцепкой в экселе создать гиперссылку. и значение ячейки загнать в гиперссылку шейпа :)


Ну, по этому я и стремился найти способ выгрузить гиперссылки из Visio и загрузить их обратно... я таговые имена объектов храню в шейпах, текстовый блок трансформирую специально под типовое имя и нормально так смотрится, т.е. имя объекта и его изображение это один шейп.....сами имена формирую так, чтобы они легко в названия файлов трансформировались, к примеру "345-ESW-08-561_MP-B1", при этом отличие от штатных таговых номеров только в символе "_" я его ставлю вместо "/", а далее через Excel я беру ShapeData.Text и клею к нему путь и расширение файла с информацией об этом элементе схемы, сохраняя все в "нужной" ячейке.... ножка, ручка, огуречик, вот и вышел человечек :), осталось убедить окружающих, что "/" им не очень то нужен на схеме, а вместо него они получают, почти, интерактивный документ (это же все потом в *.pdf конвертируется, чтоб кривыми ручками не ломали), в итоге у всех появляется схема по которой легко осуществляется поиск нужной еденицы оборудования визуально или штатными средствами Acrobat Reader, а найдя оборудование можно получить доп.информацию одним кликом мышки.... по моему, для многих это революционный прорыв в работе с производственной информацией :)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 21 ноя 2014, 17:20 
Не в сети
Content manager
Content manager
Аватара пользователя

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

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 23 ноя 2014, 01:52 
pmspecial писал(а):
при этом отличие от штатных таговых номеров только в символе "_" я его ставлю вместо "/"
а что если попробовать символ - Division Slash. Его можно найти в таблице Charmap в самом конце выделен красной рамкой
Изображение
если произвести в экселе замену обычного слеша, на комбинацию неразрывного пробела (Alt+0160) и символа из чармап. то визуально разницу в написании увидит лишь эстет. Лишь ширина слеша будет немного шире :)
Изображение
в локальных файлах на HDD/flash этот символ можно смело использовать в имени файла


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 24 ноя 2014, 15:17 
Не в сети
Новичок

Зарегистрирован: 20 ноя 2014, 10:46
Сообщений: 26
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Гость писал(а):
pmspecial писал(а):
при этом отличие от штатных таговых номеров только в символе "_" я его ставлю вместо "/"
а что если попробовать символ -
.......................
в локальных файлах на HDD/flash этот символ можно смело использовать в имени файла


Маневр интересный но, при дальнейшем редактировании чертежа обязательно появятся обычные слеши и все перестанет обрабатываться....


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 24 ноя 2014, 15:53 
Не в сети
Content manager
Content manager
Аватара пользователя

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

pmspecial,
в силу сверхсекретной специфики разработки однолинейных схем, я пока слабо представляю что же ты там делаешь. Изображение
Оффтоп:
да и вообще разработчики однолинейных схем постоянно шифруются, трудно понять что они хотят
пруф

после какого-то редактирования сопряженного с заменой слешей придется прогонять механизм замены гиперссылок заново

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 24 ноя 2014, 16:11 
Не в сети
Ветеран

Зарегистрирован: 05 июл 2012, 21:34
Сообщений: 225
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Я в теме однолинейных...)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 24 ноя 2014, 17:37 
Не в сети
Новичок

Зарегистрирован: 20 ноя 2014, 10:46
Сообщений: 26
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Robink писал(а):
Я в теме однолинейных...)


Все просто, коллеги, Однолинейные схемы электроснабжения, это, по сути, логика системы электроснабжения без привязки к топографии....
Благодаря вашим подсказкам я очень многому научился, за что вам очень благодарен

Кстати, для проблемы с гиперссылками я нашел неплохое решение БЕЗ Excel. Я просто формулой (="....."&SHAPETEXT(theText)&".....") забираю значение сразу в ячейку адреса (приклеиваю там всякие нужные штуки типа пути и расширения файла) и задача решена.... сохраняю дерево схемы как Web page и у меня появляется красивая графическая альтернатива Проводнику, т.е. я на интернет страничке вижу свою схему, а при необходимости, кликаю на нужном элементе и попадаю в нужный каталог или файл,
Еще раз всех благодарю :)

Щас в другую проблему ударился :wall: мастер шейпы не подчиняются.... но к данному разделу это не относится :)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Редактирование свойств Shape через Excel
СообщениеДобавлено: 24 ноя 2014, 18:07 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
pmspecial писал(а):
Кстати, для проблемы с гиперссылками я нашел неплохое решение БЕЗ Excel. Я просто формулой (="....."&SHAPETEXT(theText)&".....") забираю значение сразу в ячейку адреса (приклеиваю там всякие нужные штуки типа пути и расширения файла) и задача решена
примерно по такому принципу работает то что я выкладывал здесь.
Surrogate в сообщении #5809 писал(а):
надеюсь файлы скачивать у вас там можно ?
Вложение:
test.vsd

правда, когда сотни объектов на схеме, без Экселя переименовывать будет тоскливо

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


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

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



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

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


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

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