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.
Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.
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