quote:

---

Tumanov
Слишком много ошибок.
i = ActiveWindow.Selection.Item(1)
Это очень кривая запись.
Лучше было бы
Set sh = ActiveWindow.Selection.Item(1)
sh - это будет селектированный шейп.
Connects.ToSheet - тоже в корне неверно.
Connects - это коллекция. Для .ToSheet обязательно нужно указывать какой-то элемент коллекции. Например Connects(1).ToSheet. Здесь указан первый элемент коллекции.
Тогда вместо строчки
Set Active = ActivePage.Shapes(i).Connects.ToSheet
должно быть нечто похожее на
Set Active = sh.Connects(1).ToSheet
Если селектирован коннектор, то такой строчкой мы получим шейп, к которому он подключен. Только тогда уж логично было бы писать не Active, а Passive :)
А если второй конец коннектора тоже куда-то подключен, то можно использовать и Connects(2). Это будет уже шейп с обратной стороны.
Но сдается мне, что Вы пытаетесь не коннекторы использовать, а 2D шейпы между собой склеивать. Тогда все усложняется. Надо разбираться с типами Conecction points (inward, outward...). В этом случае любой шейп может быть и "активным" и "пассивным" - в зависимости от типа точки.
Если точка Outward, значит шейп похож на коннектор. Если Inward - значит к ней будут коннектиться.
Если у шейпа есть точки обоих типов, значит опрашивать придется обе коллекции - и Connects и FromConnects.

---