Saltar al contenido

Unir dos lineas con un conector

publicado

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

Featured Replies

publicado

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.

publicado
  • Autor

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

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.