Netwerk diagram uitlezen naar tabellen

[Piet Bom]

Ik heb een rekentooltje om netwerkplanning door te rekenen.
Nu wil ik graag een getekende netwerkdiagram uitlezen mbv VBA.
Ik heb gezocht naar BeginConnectedShape en EndConnectedShape,
maar het lukt me niet om de namen van de begin box en eind box uit te lezen.
Kan iemand mij de gouden tip geven ?
Zie bijlage........

 

[sylvester-ponte]

hoi Piet, misschien heb je hier iets aan:

 

[snb]

Anders, niet beter:

Sub M_snb()
  ReDim sn(Blad2.Shapes.Count, 7)
  
  For Each it In Blad2.Shapes
    Select Case Trim(Left(it.Name, InStrRev(it.Name, " ")))
    Case "Elbow Connector"
      sn(x, 0) = it.Type
      sn(x, 1) = it.Name
      sn(x, 2) = it.ConnectorFormat.BeginConnectedShape.TextFrame.Characters.Text
      sn(x, 3) = it.ConnectorFormat.EndConnectedShape.TextFrame.Characters.Text
      x = x + 1
    Case "Rectangle"
      sn(y, 5) = it.Type
      sn(y, 6) = it.Name
      sn(y, 7) = it.TextFrame.Characters.Text
      y = y + 1
    End Select
  Next
  
  Blad2.Cells(20, 6).Resize(UBound(sn) + 1, UBound(sn, 2) + 1) = sn
End Sub

 

[Piet Bom]

Hoi Sylvester en snb,
Bedankt.
Jullie oplossingen werken beide als een speer
@snb, weer leerzaam om compacter en overzichtelijk te programmeren.
Ik zat er vlakbij, maar zag het net niet (blindstaren)
Dit ga ik gebruiken bij mijn scheduling tooltje als input methode.
Mogelijk kom ik later nog eens terug met hulpvragen.
To be continued............

 

[snb]

O, ja: ik zou de macro gewoon in de VBAmodule van het werkblad zetten.