Estoy tratando de crear conectores entre los nodos (formas circulares) en el "sector" anterior y los nodos (formas circulares) en el "sector" creado actualmente.
QUÉ FUNCIONA: Se están creando los conectores, cada uno de los cuales termina en cada uno de los nodos dentro del sector actualmente creado.
LO QUE NO FUNCIONA: Todos los conectores comienzan desde el mismo nodo en el sector anterior, específicamente, el último.
Aquí está el código para el SECTOR 2 (el código para el SECTOR 1 es exactamente el mismo, excepto por el nombre, por supuesto)
Sub Node_Gen_S02() Call RESTART Dim i As Integer For i = 1 To rndNodeAmount_S02 NodePosVer_RND = WorksheetFunction.RandBetween(-15, 15) NodePosHor_RND = WorksheetFunction.RandBetween(-40, 40) Set SectorSheet = Worksheets(1) Set SectorNodes = SectorSheet.Shapes Set S02_Node = SectorNodes.AddShape(msoShapeOval, 485 + NodePosHor_RND, ((Map_Median + NodePosVer_RND) - (S02_Range_Ver / 2) + ((S02_Range_Ver / (rndNodeAmount_S02 + 1)) * i) + NodePosVer_RND), 15, 15) S02_Node.Name = ("Sector02_Node0" & i) With S02_Node.Fill .ForeColor.RGB = RGB(51, 204, 204) .Transparency = 1 .TwoColorGradient msoGradientFromCenter, 1 .GradientStops(2).Color = RGB(0, 0, 0) .GradientStops(2).Position = 0.5 End With With S02_Node.Line .ForeColor.RGB = RGB(255, 80, 80) End With Debug.Print ("Node Name:" & S02_Node.Name) ' GENERATE NODE CONNECTIONS between S01 and S02 ----------------------------------------------------------- Set Sector02_Node_Connect = SectorNodes.AddConnector(msoConnectorStraight, 0, 0, 100, 100) With Sector02_Node_Connect.ConnectorFormat .BeginConnect ConnectedShape:=S01_Node, ConnectionSite:=1 .EndConnect ConnectedShape:=S02_Node, ConnectionSite:=1 End With With Sector02_Node_Connect.Line .ForeColor.RGB = RGB(51, 204, 204) .Weight = 1 .BeginArrowheadStyle = msoArrowheadOval .EndArrowheadStyle = msoArrowheadOval End With Sector02_Node_Connect.Name = "C_S01_S02_" & i Sector02_Node_Connect.RerouteConnections Next i End Sub¿Alguien tiene alguna idea de por qué está haciendo eso? (Sospecho que tiene algo que ver con el siguiente bucle anterior y/o la referencia del objeto en la conexión de línea siempre es la misma, pero no sé cómo resolverlo)