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

Тему было предложено создать мне, значит и мне придется первому излагать свои соображения по реализации

1. Имеем таблицу с конфигурацией щитов, в таблице две вкладки
Block (в них описываются щиты) и Calсulation (в ней описаны все группы потребителей)
2. двумя циклами считываем данные с обоих листов и заносим в двумерные массивы shit и group
3. Далее другой открывает первую строку массива shit, роняем на лист мастер All-in-one и передаем в него данные из первой строки массива
4. Далее идем в массив group и считываем с него строки, ведем счет текущей строки. для каждой строки роняем на лист фигуру Тип6 и заполняем ее shapedata данными из массива group
5. далее создается новый лист
и на нем повторяется тоже, что и на первом листе. и так по всем строкам вкладки Block

добавил немного мясца к скелету
распакуйте куда-нибудь архив. в файле визио запустите макрос ololo(). Он там единственный.
Авторские комментарии:

1. Автопозиционирование реализовано в shapesheet.
2. считывание данных ведется в два массива, а не в коллекции.
3. На основании данных собранных в массив shit создается нужное число страниц.
4. По данным из массива gr на каждом листе добавляется нужное количество групп (условие выхода из цикла заполенения групп в щите - если значение ячейки в столбце Q (Breaker_3ph) не равно пустой строке) .
5. число полей отражающихся на схеме сделал минимальным…
6. заполнение текста дочерних шейпах группового шейпа из мастера All-in-one, сделал пока по-простому sheet.N!Prop.N. где N - номер шейпа из мастера All-in-one