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:
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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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