Unir dos lineas con un conector

[JIMMYRUNA]

Antes que todo un saludo para todos los miembros del foro. Me parece que "Unir dos lineas mediante un conector" es complicado o no se puede hacer, sería maravillo si alguien del foro me pueda sacar de esta duda. Intente hacerlo con el siguiente código:

Sub UnirDosLineasConConector()
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 60, 15, 120, 15).Select
Horizontal02 = Selection.ShapeRange.Name
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 180, 30, 240, 30).Select
Horizontal05 = Selection.ShapeRange.Name

ActiveSheet.Shapes.Range(Array(Horizontal02, Horizontal05)).Select

Set Conector = ActiveSheet.Shapes.AddConnector(msoConnectorCurve, 0, 0, 0, 0)
 With Conector.ConnectorFormat
      .BeginConnect ConnectedShape:=Horizontal02, ConnectionSite:=1
      .EndConnect ConnectedShape:=Horizontal05 , ConnectionSite:=1
      .Conector.RerouteConnections
 End With
End Sub

[Héctor Miguel]

analiza el siguiente articulo, contiene (casi) todo lo que puedes hacer con los conectores: Working with Flowchart Connector Lines in Excel

presta atención al "por qué" hay restricciones a conectar conectores con conectores (en el enunciado en rojo que dice: "(Not Recommended)"

saludos,

hector.

[JIMMYRUNA]

Gracias Héctor, es muy ilustrativa la Dirección que recomiendas leer.

[JIMMYRUNA]

Doy por cerrado el tema.