| Author |
 Topic  |
|
|
AndreyO
2 Posts |
 Posted - 12/12/2005 : 15:30:19
|
Нужно сделать план здания с размещенными на нем шейпами компьютеров.
И чтобы начальник тыкая мышкой на интересный ему компьютер мог посмотреть все его параметры. Таблица с параметрами в Excel есть.
Данные из Excel в свойства шейпов закачал. Думаю по двойному щелчку мыши подключить макрос, который как-нибудь отобразит параметры компьютера. Макрос должен быть один на все шейпы.
Вопрос: как сделать макрос, который выводил бы свойства шейпа (активного) на экран? Наверно есть разные варианты: типа MessageBox или в появляющуюся табличку или другие варианты. Сойдет любой. Как сделать это проще? Если можно, то поделитесь небольшим примерчиком, а то в VB я полный чайник (Ногами просьба не пинать и к нелпу не отправлять). Заранее спасибо. |
|
|
immortal
Russia
391 Posts |
Posted - 12/13/2005 : 08:36:18
|
да зачем извращаться с макросами, на мойвзгляд проще сделать всё в кустом проперти компьютера и забить всё туда, начальник будет смотреть кустом проперти, что касается екселя, то перенос из него в кустом проперти визио работа разовая, можно в ручную, а можно с помощью моего excel2visio, тут гдето писалось о нём.
Вобщето на мой взгляд лучше (как идеальный вариант) если уж так охота сделать макросами загрузку в кустом проперти отчёта программы AIDA, ну и если хочеться с базоми данных пошаманить то коннектиться к аццесс базам программы БКО (База данных компьютеров организации), в которой уже есть загрузка из AIDA
визио 2003 форэвер
...а вобще-то я белый и пушистый. |
 |
|
|
brace
Russia
358 Posts |
Posted - 12/13/2005 : 09:04:20
|
окно Custom Properties выводится на экран двумя кликами мышки. Далее кликай на любой шейп и смотри инфу в этом окне. Не нужен тут никакой макрос. Однако для ублажить нач. много чего придумать можно. |
|
|
|
Digitall
Russia
389 Posts |
Posted - 12/13/2005 : 10:33:47
|
quote:
Originally posted by AndreyO
Нужно сделать план здания с размещенными на нем шейпами компьютеров.
И чтобы начальник тыкая мышкой на интересный ему компьютер мог посмотреть все его параметры. Таблица с параметрами в Excel есть.
Данные из Excel в свойства шейпов закачал. Думаю по двойному щелчку мыши подключить макрос, который как-нибудь отобразит параметры компьютера. Макрос должен быть один на все шейпы.
Вопрос: как сделать макрос, который выводил бы свойства шейпа (активного) на экран? Наверно есть разные варианты: типа MessageBox или в появляющуюся табличку или другие варианты. Сойдет любой. Как сделать это проще? Если можно, то поделитесь небольшим примерчиком, а то в VB я полный чайник (Ногами просьба не пинать и к нелпу не отправлять). Заранее спасибо.
Можно еще такой вариант, сохранение в HTML. Там есть такая функция, чтобы Custom Properties отображались при простом наведении мыши на объекте. Думаю, для начальника в самый раз.  |
|
|
|
AndreyO
2 Posts |
Posted - 12/13/2005 : 10:34:30
|
brace и immortal спасибо!
Сделал так: для обозначения компов использовал шейп Computer, добавил к ним свойства из Excel, повесил на двойной щелчек макрос с командой:
Application.ActiveWindow.Windows.ItemFromID(visWinIDCustProp).Visible = True
по ней вылезает панель "Специальные настройки" и все Ок.
Еще два вопросика:
1. Возможно ли запретить редактирование в панели "Специальные настройки"?
2. Как одно из свойств шейпа вывести в качестве подписи под значком Computer? |
|
|
|
AndreyO
2 Posts |
Posted - 12/13/2005 : 10:46:19
|
brace и immortal спасибо!
Сделал так: для обозначения компов использовал шейп Computer, добавил к ним свойства из Excel, повесил на двойной щелчек макрос с командой:
Application.ActiveWindow.Windows.ItemFromID(visWinIDCustProp).Visible = True
по ней вылезает панель "Специальные настройки" и все Ок.
Еще два вопросика:
1. Возможно ли запретить редактирование в панели "Специальные настройки"?
2. Как одно из свойств шейпа вывести в качестве подписи под значком Computer? |
|
|
|
brace
Russia
358 Posts |
Posted - 12/13/2005 : 12:18:21
|
это штатная фича визио
в поле Search в хелпе визио забей фразу
Label shapes with a custom properte
там все расписано по шагам. |
|
|
|
Tumanov
Russia
1198 Posts |
Posted - 12/13/2005 : 20:23:21
|
quote:
1. Возможно ли запретить редактирование в панели "Специальные настройки"?
В самом окошке запретить нельзя, но можно попробовать обходные варианты:
1. Защитить формулу в шейп-листе
Когда в окне свойств вводится значение, например, коммутатор 12А44, то в ячейке шейп-листа появляется формула "коммутатор 12А44". Если вместо нее будет стоять Guard("коммутатор 12А44"), то изменение свойства будет недоступно. То есть имеется видимость редактирования, но значение не меняется.
2. Использовать другой тип свойства - не строку, а фиксированный список
При этом значение должно вводиться не в поле Value, а в поле Format. И тип устанавливается не String, а Fixed List.
В окошке это смотрится вполне нормально. Редактирование отсутствует. Есть намек на возможность выбора, но выбирать можно только одно и то же значение. |
|
|
|
AndreyO
2 Posts |
Posted - 12/14/2005 : 08:32:30
|
Digitall
Действительно лучший вариант сохранять в "вебстраницу". Там есть еще и поиск по люому названию. Начальник в экстазе!
brace
Спасибо за помощь, быстро разобрался.
Tumanov
Очень много полезной информации, думаю пригодится в будущем.
Ребята, спасибо всем за оперативность и полноту ответов!
Удачи!
Тема закрыта.
|
|
|
| |
Topic |
|
All Forums
Вывести свойства шейпа.