Протягивание линии до определенного объекта

[RipVanWinkel]

Всем привет. Прошу помощи, плз.

Суть вопроса такая: Как макросом вытянуть правый конец линии на листе -по горизонтали - до определенного объекта.
Левый конец линии при этом недвижим.

Объект имеет свое название, которое приведено в ячейке J5.
Ума не приложу как это сделать.
Помогите, если кто знает.

[Казанский]

Sub Макрос3()
Dim s As Shape
  For Each s In ActiveSheet.Shapes
    If s.Connector Then
      s.ConnectorFormat.EndConnect ActiveSheet.Shapes([j5].Value), 1
      Exit Sub
    End If
  Next
  MsgBox "Соединительная линия не найдена"
End Sub

[RipVanWinkel]

Казанский, немного неправильно.

Я имел ввиду вытягивание линии по горизонтали.
А в вашем макросе - линия идет под углом, соединяясь с фигурой.
В примере я показал, что линия должна просто протянуться по горизонтали, не соединяясь при этом с целевой фигурой.

[Казанский]

Нет так нет. Ушел из темы.

[RipVanWinkel]

Казанский, ну я же написал в первом сообщении - "по горизонтали"