Задали такую вещь: Есть ряд фигур, соединенных в цепочку - соединительными линиями. Началом цепочки считается красный круг. Как преобразовать эту цепочку в текст типа начало-ромб2-прямоугольник33-овал34-овал35-треугольник36 и вставить результат в ячейку E15 ??? То есть - названия надо расставить по порядку - как они в цепочке идут.
Привет, народ. Подскажите - если кто разбирается.
Задали такую вещь: Есть ряд фигур, соединенных в цепочку - соединительными линиями. Началом цепочки считается красный круг. Как преобразовать эту цепочку в текст типа начало-ромб2-прямоугольник33-овал34-овал35-треугольник36 и вставить результат в ячейку E15 ??? То есть - названия надо расставить по порядку - как они в цепочке идут.Megamen2
Самую малость.Алгоритм таков. Находите соединяющие линии,получаете фигуры, которые она соединяет.Обрабатываете данные. строите цепочку [vba]
Код
For Each chap In ActiveSheet.Shapes If chap.Connector = msoTrue Then Set BeginShape = chap.ConnectorFormat.BeginConnectedShape Set EndShape = chap.ConnectorFormat.EndConnectedShape End If Next
Самую малость.Алгоритм таков. Находите соединяющие линии,получаете фигуры, которые она соединяет.Обрабатываете данные. строите цепочку [vba]
Код
For Each chap In ActiveSheet.Shapes If chap.Connector = msoTrue Then Set BeginShape = chap.ConnectorFormat.BeginConnectedShape Set EndShape = chap.ConnectorFormat.EndConnectedShape End If Next
Наверное затем, что они соединяют фигуры, названия которых Вы хотите выстроить в цепочку, значит к этим линиям можно привязаться и идти дальше. Добавьте в код из сообщения №2 перед "End If" и посмотрите что произойдет: [vba]
Наверное затем, что они соединяют фигуры, названия которых Вы хотите выстроить в цепочку, значит к этим линиям можно привязаться и идти дальше. Добавьте в код из сообщения №2 перед "End If" и посмотрите что произойдет: [vba]