檢測線的形狀末端點

Question

我在Excel工作表一些相當大圖，示出了輸入和目標像這樣：

這裏，輸入i/p_1被視爲signal_1到標記行的左側（紅線），然後前往目的地1和2。所有的文本都被輸入到單元格中，箭頭被繪製爲形狀。

我要創建一個表的輸入，信號名稱和目的地像這樣：

我將如何實現這一目標？

我在想，找出箭頭的起點和終點，然後看看上面那一行的單元格會給我一個很好的起點。 但我不知道如何做到這一點。

Answer 1

這是一個想法來檢索請求的單元格。這應該是實現你的目標的一個很好的起點。

Sub DisplayArrowCells() 
    Dim x As Shape 
    For Each x In Shapes 
     If InStr(x.Name, "Elbow Connector") = 1 Then 
      Debug.Print _ 
       x.TopLeftCell.Address & "," & x.TopLeftCell.Value _ 
       & " <---- " & _ 
       x.BottomRightCell.Offset(-1, 0).Address & "," & x.BottomRightCell.Offset(-1, 0).Value 
     End If 
    Next 
End Sub