MS Visio VBA question to profesional

[rawas]

Проблема в MS Visio

Имеются:
Мастер шейпы ( 1.vss, 2.vss, 3.vss, 4.vss, 5.vss, 6.vss)

Нужно:
1. Ввести определенные свойства на каждый мастер шейп (тип, цена, сила, мощность и т.д), к которым можно в последствие программно обратиться, чтобы при добавлении в проект шейп уже имел эти свойства.
2. При нажатии правой кнопки мышки на шейпе, вывести стандарное меню и к нему добавить combo box
3. В этом combo box делать выборку по названию, из данных которые меняються по мере обновления.
4. При выборе в combo box названия, присвоить это название шейпу, а другие данные этого названия присвоить ему-же к которым можно в последствие программно обратиться.
5. Подсчитать сколько и каких шейпов, до шейпа с определенным типом, соединено с данным шейпом.

Дано:
есть шейп с типом "усилитель", он соединен кабелем у которого тип "кабель", с распределительной коробкой у которой тип "коробка" и четыре направления, дальше он соединен кабелем у которого тип "кабель" с распределительной коробкой у которой тип "коробка" и два направления и опять шейп с типом "усилитель"
тип "усилитель" имеет две точки соединения "УсилительВход" и "УсилительВвыход"
тип "коробка" с четырмя направлениями имеет 5 точек соединения "КоробкаВход","Квых1","Квых2","Квых 3","Квых4"


получаеться схема из типов такая: "УсилительВвыход" --> "кабель" --> "КоробкаВход" --> "Квых1" --> "кабель" --> "УсилительВход"

У каждой точки соединения есть параметры которые учитываються при подсчете
"УсилительВвыход" имеет параметр 20
"кабель" имеет параметр 10
"Квых1" имеет параметр 4

Нужно:

Сложить все параметры (может быть несколько параметров) точек соединения между шейпами от тип "Усилитель" до типа "усилитель", т.е на точке "УсилительВход" должно получиться 44


6. При наведении мышки на шейпе, показать определенные данные данного шейпа

[EducatedFool]

Дано:
Мастер шейпы ( 1.vss, 2.vss, 3.vss, 4.vss, 5.vss, 6.vss)

Кому дано? Мне лично ничего не дано...
Или Вы думаете, что мы будем воссоздавать весь Ваш проект?

Прикрепите файл - тогда другое дело, посмотрим...

[rawas]

Сообщение от EducatedFool

Кому дано? Мне лично ничего не дано...
Или Вы думаете, что мы будем воссоздавать весь Ваш проект?

Прикрепите файл - тогда другое дело, посмотрим...

Это образно, ничего воссоздавать не нужно, киньте пару примеров я сам всё сделаю, в инете ничего найти не могу, так как в VBA новичек

[EducatedFool]

киньте пару примеров я сам всё сделаю

Легко сказать...
Вообще-то, Вы обратились в раздел Microsoft Office Excel, и вряд ли Вы здесь найдёте подходящие примеры кода для Visio.

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

Если бы был пример файла - другое дело. Мы уж как-нибудь записали бы нужные действия макрорекордером, и обработали бы код (даже без опыта работы с этой программой)

А разбираться с объектной моделью Visio ради создания "образного" кода никто не будет.

[rawas]

Каличи вы все!!! Сделал сам, спасибо что не помогли, форум ваш в топку!!!