Empresas
Empleos
  • Sobre nosotros
  • Soluciones
    • Publicación de vacantes
      Publica tu vacante y recibe candidatos calificados en 48h.
    • Evaluación de candidatos
      500+ pruebas técnicas y psicológicas, más anti-fraude.
    • Headhunting
      Búsqueda ejecutiva a la medida de principio a fin.
    • Nómina + EOR
      Dispersión de nómina y EOR en más de 15 países de LATAM.
  • Precios
  • Empleos

0

143
Vistas
For Next loop siempre se conecta al último nodo en la colección anterior

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)

about 4 years ago · Santiago Trujillo
Responde la pregunta
Encuentra empleos remotos

¡Descubre la nueva forma de encontrar empleo!

Top de empleos
Top categorías de empleo
Empresas
Publicar vacante Precios Comercial
Legal
Términos y condiciones Política de privacidad
© 2026 PeakU Inc. All Rights Reserved.
Andres GPT
Recomiéndame algunas ofertas
Necesito ayuda